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1  Introduction 

In  this  memorandum  we  give  the  formal  definition  of  the  Lisp  implementation  of  the  transfor¬ 
mational  rules  from  Core  ELLA  to  the  Kernel.  In  the  document  [MH91]  a  formal  description 
was  given  of  transformational  rules  from  Core  to  Kernel.  These  rules  were  then  implemented 
in  the  language  Lisp.  In  the  implementation  of  these  rules  a  number  of  revisions  were  un¬ 
dertaken,  the  most  profound  being  the  way  in  which  the  transformational  environment  was 
handled  and  in  the  updating  of  the  scoping  rules.  This  has  meant  that  the  definition  of  a  sig¬ 
nificant  number  of  the  transformational  rules  have  changed.  It  is  the  purpose  of  this  document 
to  formally  describe  the  actual  functions  and  transformational  rules  which  have  been  imple¬ 
mented.  In  order  to  aid  readability  the  rules  will  be  specified  in  the  VDM  notation  [Jon90]. 
The  reader  is  referred  to  [MH91]  for  a  complete  description  of  the  backgroimd  to  this  document. 


This  memorandum  describes  the  static  semantics  for  the  Core  of  the  latest  version  of  ELLA, 
namely  ELLA2000.  In  order  to  get  the  complete  description  of  the  Core  language  the  dynamic 
semantics  must  also  be  considered.  In  reference  (Hil92]  a  description  of  the  dynamic  semantics 
of  the  Kernel  is  given  and  interested  readers  are  referred  to  that  document. 


2  The  Kernel 

The  Kernel  is  a  set  of  data  structures  into  which  any  Core  ELLA  description  can  be  mapped, 
for  a  complete  description  of  Core  ELLA  and  its  relation  with  the  Kernel  the  reader  is  re¬ 
ferred  to  [MH91].  A  Glossary  of  symbols,  the  definitions  of  Core  ELLA,  and  the  Kernel  data 
structures  are  given  in  appendices  A,  B  and  C,  with  the  transformational  signatures  given  in 
appendix  D. 


Central  to  the  tr2msformation  of  Core  ELLA  descriptions  is  the  transformational  environment. 
For  completeness  the  definition  of  the  environment  is  given  in  appendix  E.  In  the  work  described 
in  [MH91]  the  environment  appeared  within  the  transformational  rules.  In  the  work  described 
here  the  environment  is  updated  through  side-effects  and  thus  only  the  following  need  to  be 
considered. 


Env  (the  current  environment) 

Envstack  (a  stack  of  environments) 

The  Envstack  hold  all  the  necessary  environments  when  local  declarations  are  encountered. 
When  beginning  translation  the  initi2Ll  environment  contains  only  empty  declarations  i.e. 

/mfiafEnv  =  €  Env 

3  Scopes 


The  scopes  of  Core  ELLA  are  removed  by  the  transformation  to  the  Kernel.  In  order  to  achieve 
this  the  foUowing  operators  are  needed 
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The  setting  of  the  glob&l  environment 

SeiEnv{e-.  Env)b:  B 
ext  wr  Env:  Env 
post  b  o  Env  =  e 


The  stacking  of  the  global  environment  onto  the  local  environment  stack 

Statkenv{)b:  B 

ext  td  Env:  Env 

wr  Envstack:  EnvStack 

post  b  Envstack  =  [  Env]  ^  Envstack 


The  unstacking  of  the  local  environment  stack 

Unstackenv()b:  B 

ext  wr  Envstack:  EnvStack 

post  6  o  Envstack  =  tl  Envstack 


The  obtaining  of  the  last  local  environment  to  be  stacked 

Hdstack{)e:  Env 

ext  rd  Envstack:  EnvStack 

post  e  =  hd  Envstack 


We  now  present  operators  which  define  the  environment  when  entering  and  leaving  declarations. 

Scop€-Fn~Begin{ ) 
ext  rd  Env:  Env 
pre  Siackenv 

post  Scl£ni;(  env(  Env.fj^dec,  Env./hdec,  (], 

Env./nmop  f  EnyUclfnmap,  {  }, 

Env.tynamemap  f  Eny. IcUynamemap,  {  }, 

{},  {}, 

{}.  {},  {})) 
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Scope~Fn-End( ) 
ext  rd  Env:  Env 

post  5etEnv(  env(  Etw.typedec,  Env.fndec,  (Hdstack).5tp(/ec, 

(Hdstack)./hmap,  (Hdstack )./c/yhmap  t  Env. Iclfnmap, 
(Hdstack).tynamemap,  (Hdstack)./c/tynametnap  t  Env. Icltynamemap, 

( Hdstack ). signamemap,  ( Hdstack ).lclaignamemap, 

(Hdstack).u5edtyname,  (Hdstack). ii5ed'/hname,  (Hdstack). usedsipname)) 

A  Unstackenv 


Scop€-Begin{ ) 
ext  rd  Env:  Env 
pre  Stackenv 

post  SetEnv(env{  Env.typedec,  Env.fndec,  Env. sigdec, 
Env./nmapi  Env. Ic/fnmap,  {}, 

Env. iynamemap  t  Env. Icltynamemap,  {  }, 
Env. signamemap  f  Env .Iclsignamemap,  {  } 
{},{},{})) 


Scope- End{) 
ext  rd  Env:  Env 

post  SetEnv{  env(  Env. typedcc,  Env.fndec,  Env. sigdec, 

(Hdstack )./rzmap,  (Hdstack )./c//nmap, 

(Hdstack).tynamcmap,  (Hdstack  )./c//ynoT7icmop, 

(Hdstack  ).siynamcmflp,  (Hdstack  )./c/sjynamcTnap, 

(Hdstack ), uscdtyname  ( Hdstack ). used/nnome  (Hdstack ). usedsigname ) ) 

A  Unstackenv 


Scope-End- Add-Fn{)b:  B 
ext  rd  Env:  Env 
post  6  o 

SetEnv{env{  Env.typedec,  Env.fndec,  (Hdstack).5jydec, 

(Hdstack)./hmap,  (Hdstack )./c//nmap, 

(Hdstack).tyna7nemap,  (Hdstack ).Zc/tynamemop, 

(Hdstack ).5iynamemap,  (Hdstack ).Zcisiynamcmap, 
(Hdstack).usedtynome  (Hdstack).uscd/nr!'’me  (Hdstack).usedsjynainc)) 
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«- 


LoaU-Scope^Rule  :  Name  —  B 

Loeal-Seope-Rule(name)  ^ 

if  name  €  Env.signamemap 

then  SetEnv{fi{  En\,  {usedsigname  <->  Eav.usedsigname  f  {namr}})) 
cIm  if  name  €  Env.tynamemap 

then  SetEnv(n(  Env,  {itsedijfname  ^  Env. usedtyname  t  {name}})) 
cIm  if  name  £  Env.fnmap 

then  SetEnv{ti{  Env ,  {usedfnname  >-*  Env. uaedfnname  f  {name}})) 
eUe  true 


The  stacking  tuid  unstacking  of  the  scopes  for  BEGIN..END  clauses  is  carried  out  through  the 
transformation  rule  [CC3).  Whilst  the  stacking  and  unstacking  of  local  function  and  type  dec¬ 
larations  are  carried  out  through  the  transformation  rules  [SPl]  and  [SP2].  The  Local  Scope 
Rule  ensures  that  any  name  only  has  one  meaning  per  scope. 


4  Transformational  Functions 

In  this  section  we  present  functions  which  will  be  used  by  the  transformational  rules. 

4.1  Join  Checks 

The  Check-Joins  predicate  is  used  to  ensure  that  all  local  signals  in  an  Environment  have  been 
joined. 

Check’Joins  :  0  — ♦  B 

Check-Joins()  ^  Vs  g  rnj  Env. IcUignamemap  •  s .tort  =  joined 


4.2  Two  Value  Types 

Here  we  present  the  predicate  for  checking  that  a  type  is  a  two  valued  enumerated  type: 


Check-  Two-  Val  :  kType  — •  B 

Check-  Two-  Val{  ty)  ^ 

let  typeno(typeno)  =  ty  in 

let  (  Env. typedec)[iypeno].new  =  tn%i(TagSeq)  in 
len  (  tags(  TagSeq))  =  2 


4.3  Check  names 

These  predicates  ensure  that  a  particular  name  is  not  already  in  scope.  They  will  be  used  by 
the  functions  that  add  names  to  an  Environment. 
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Check-Fn:  Fnname  — ►  B 
Cheek- Fn{fnnaTne)  A 

fnname  ^  (dom  (  Env.lclfnmap)  U  Env. usedfnname) 


Cheek- Typename:  Name  —*  B 
Cheek-Typename(name)  A 

name  ^  (dom(  Ewv.leltynamemap)\J  Env.usedtyname) 


Cheek- Signal-.  Signalname  — «  B 
Cheek- Signal{tignalname)  A 

signalname  ^  (dom(  Env. lclsignamemap)u  Env. usedsigname) 


4.4  Adding  Names  to  an  Environment 

These  functions  define  the  addition  of  names  to  an  environment 

Add-Fn:  Fndec  ■—  B 

Add-Fn{fd)  A 

let  Len  =  len  Env. fndec  in 
let  FnName  —  fd.fnname  in 

SeiEnv(n(  Env,  {  fndec  •-*  Env. fndec  [fd], 

Iclfnmap  (  Env.lclfnmap  f  {FnName  >—  Len  -t-  1}) 

})) 

prc  Check- Fn( fd.fnname)  A  Scope-End-Add-Fn 


Add-Type:  Typedec  —*  B 


Add-Type(td)  A 

let  Len  =  len  Env.  typedec  in 
let  TyName  =  td. typename  in 

SetEnv{n{  Env,  {  typedec  •-»  Env. typedec  [td], 
leltynamemap  •-> 

(  Env. leltynamemap  f  {  TyName  —* 

})) 


pre  Cheek- Typename{td. typename)  A  Cheek- Signal{td. typename) 


ty’peno(Ien  +  1)}) 
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Add-Signal:  Signaldec  x  Sort  —*  B 

Add-Signal(sd,  sort)  A 

let  Len  =  len  Bnv.sigdee  in 
let  SigName  =  sd.signalname  in 

SetEnv(^{  Env,  {  sigdec  <-»  Env.5jpdec'^  [5<f], 

Iclsignamemap  >-* 

(  Env.iclsignamemap  t  {SigName  *-»  sig(Xen  +  1,  sort)}) 

})) 

pre  Check-Signal(sd.signalname)  A  Chtck-Typenamt(sd.signalname) 


Add- Join:  Signaldec  x  Signalno  — »  B 


Add-Join{sd,  signalno)  A 

let  SigName  =  sd.signalname  in 

SetEnvifi{  Env,  {  sigdeclsignalno]  <-► 
Iclsignamemap  •-» 


})) 


sdy 

(  Env.iclsignamemap  t  {SigName  •-» 

sig(aigTioino,  joined)}) 


Add-Tag:  Tagname  — •  B 

Add-Tag{tagname)  A 

let  Len  =  len  Env.  typedec  in 

SetEnv(n(  Env,  {  Icltynamemap  •-» 

(  Env. Icltynamemap  t  {tagname  consttag(Len  +  1)}) 

})) 

pre  Check-Typename{tagname)  A  Check- Signal{tagname) 


Add- Type-Name:  Typename  x  kType  — »  B 

Type-Name(  typename.  ktype)  A 
SetEnv{^l{  Env,  {  Icltynamemap 

(  Env. Icltynamemap  t  {typename  ►—  typenanie(typcnomc,fc<j/pe)}) 

})) 

pre  Check-Typename{typename)  A  Check-Signal{typename) 


4.5  Finding  Names  in  an  Environment 

These  functions  describe  how  any  name  can  be  located  within  an  Environment 
Find- Lower- Nm:  Name  — *  Typetag  U  Sig 
Find- Lower- Nm[name)  A 

(  Env. siffnamcmapt  Env.lynamemopt  Env.iclsignamemap)  Env.lcltynamemap){name) 
pre  Local- Scope- Rule{name) 
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Find-Type-or-Alt:  Name  -*  kType  U  kEnum 

Find- Type-or- Alt  (name)  A 

let  ans  =  Find- Lower- Nm{name)  in 
if  ans  =  consttag(.) 
then  Find-Alt{name) 
else  Find-Type{name) 


Find-Sig-or-Alt:  Name  — *  {kUnit  x  kType)  U  kEnum 

Find-Sig-or-Alt{name)  A 

let  ans  =  Find- Lower- Nm{name)  in 
if  flTW  =  sig(^-) 
then  Find-Signal{name) 
else  Find-Alt{name) 


Find-Fn:  Fnname  — *  Fnno 
Find-Fn(name)  A 

(  Env. fnmap  f  En\. lclfnmap){name) 
pre  Local-Scope- Rule{name) 


Find- Unjoined:  Signalname  — ♦  Fnno 

Find-  Unjoined{signalname)  A 

let  Signo  =  (  Env. lclsignamemap){signalname).signalno  in 
let  signaldec(5i^oZname,  type,  instance (/nno,.))  =  (  Env.siydec)[5iyno]  in 
fnno 

pre  (  Env.lclsignamemap)(signalname).sort  =  uiyoined 


Find- Type:  Typename  —*  kType 

Find-Type(typename)  A 

Find- Lower- Nm{typename ) 

pre  Find- Lower- Nm{iypename)  £  (  typename  U  typeno) 


Find- Alt:  Altname  — ♦  kEnum 
Find-Alt(altname)  A 

let  conittag(Jbfypeno)  =  Find-Lower-Nm(altname)  in 
let  typedec(.,  tag8(tay5))  =  (  Env.<ypedcc)(fcfypenp]  in 
let  index  =  i  {i  £  inds  tags)  -  tays(t]  =  tag(oZtnome, .)  in 
en\xm{ktypeno,  index) 
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Find’ELLAint:  Tagnamt  -*  Typeno  x  Lowerbound  X  Upperbound 
Find-ELLAint{tagname)  A 

let  consttag( fctypcno)  =  Find-LoweT-Nm{tagnarne)  in 
let  typedec(.,  ellaint(., /b,  ix6))  =  (  £nv.type(fec)[/;typeno]  in 
kiypeno,  lb,  ub 


Find-Integer- Typei  kType  — *  Tagnatne  x  Loxoerbound  x  Upperbound 

Find-Integer-  Type{  ktype )  A 
cases  ktype  of 

typeno( typeno)  — ►  eases  (  Env.typedec)[fypcno]  of 

typedec(_,  ellaint(t, /,  u)) -♦  t,  I,  u 

end 

typename(-,  type)—*  Find- Integer- Type(type) 
end 


Find- Char:  Tagname  x  Char  -*  kEnum 

Find- Char {tagname,  char)  A 

let  consttag(fctypeno)  =  Find- Lower- Nm{ tagname)  in 
let  typedec(.,  chars(.,  chs))  =  (  Em.typedec)\ktypeno]  in 
let  index  =  t(t  €  inds efts)  •  cfts[t]  =  char  in 
enuin(fttypeno,  index) 


Find-Signal:  Signal  — »  kUnit  x  kType 

Find-Signal{signalname)  A 

let  uig{3ignalno,  J)  =  Find- Lower- Nm{tignalname)  in 
signal(styna/no),  (  Env.sigdec)[signalno].type 


Find-Assoc:  Altname  — *  kType 
Find-A3soc{altname)  A 

let  consttag(/;typeno)  =  Find- Lower- Nm{ altname)  in 
let  typedec(.,  tags(tays))  =  (  Env.type(iec)[fttypeno]  in 
i{ktypeOpt  e  kTypeOpt)-  tag( altname,  ktypeOpt)  e  elems  toys 
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Find-Row:  kType  — »  Ni  x  kType 

Find-Row{ktype)  A 

let  iy  =  Gei-Type3{ktype)  in 
let  typet(  type5 )  =  ty  in 
let  size  =  Icn  (types)  in 
{size,  types[l]) 

pre  Vi  6  {l..size}  •  types[l)  ={t]=  types[i] 


Find-Biop:  Biopname  x  kType  x  kType  — ►  kFnbody 

Find-Biop{name,ktypei,ktypei)  A 

let  biopinfo  =  i(t  €  BiopEnv.6iop)  •  i.biopname  =  name  in 
biop  (name) 

pre  Biop-Type- Equals{biopinfo.inputtype,ktype\)  A 
Biop-  Type-Equals{  biopinfo. outputtype,  ktype2 ) 


4.6  Removing  Type  Aliasing 

Type  aliasing  is  removed  by  means  of  the  following  function: 


Get-Type  :  kType  -*  kType 

Gei-Type{ty)  ^ 
cates  ty  of 

types({/:typei,  •  •  • ,  ktypet])-^  types((Get-  Type(ktypei  ),•••,  Get-  Type{ktypet )]), 
typename(-, fctype)  -*  Get-Type(ktype) 

stringtype( size , /fiype)  — •  stTmgtype(size,  Get-Type(ktype)) 

others  ty 


end 


4.7  Type  Checking 

Type  checking  is  an  important  aspect  of  the  ELLA  compiler  and  the  relation  ‘a  ={t]=  b'  shows 
how  the  transformation  from  Core  ELLA  to  the  Kernel  will  define  type  equality.  This  relation 
is  defined  by:- 


ktypei  =rf]=  ktype2  o  Type-Equals{ktypex,ktype2) 


where 
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Type-Equals  :  kType  x  kType  —•  B 

Type-EquaU{tyi,ty2)  ^ 

cates  (Get-Typ€{tyi),  Gei-Type(iy2))  of 

(  typeno(<ypenoi),  typeno(<ypcnoj))  -»  (typenoi  =  typenoj) 

(  8tringtype(5i,  <ni),  stringtype(s2,  fn2))  —  (ti  =  52)  A  Typt-Equals{ini,in2) 
(  types([fi,...,  ft]),  types((5i,...,5jJ))  j  =  k  Type-EquaUiU,  Si) 

(  typevoid,  typevoid)  -♦  true 

others  false 

end 


For  the  Built  in  Operators  (Biops)  the  type  of  the  enclosing  function  speciftcation  behaves  like 
an  ELLA  Macro,  and  therefore  full  type  checking  is  not  possible  at  the  static  semantic  stage. 
For  that  reason  the  following  function  is  necessary  for  the  type  checking  of  a  Biop  specification. 


Biop- Type- Equals  :  kType  x  kType  —  B 

Biop-Type-Equals{btyi,  bty2)  ^ 

cases  (Get-Type{btyi),  Gei-Type(bty2))  of 

(  typeno(  typcno),  typeno(.))  —  true 

(  8tringtype(5i,  Irij),  stringtype(s2,  {02)) -*  Biop-Type-Equals(tni,tn2) 

(  type8([<i,..., 4)),  types((sj,...,sj)))  j  =  k  /\  Biop-Type-Equals^U-,  ^i) 

(  typevoid,  typevoid)  -*  true 

others  false 

end 


4.8  Type  Indexing 

These  function  describes  how  to  obtain  the  type  of  an  indexed  or  trimmed  quantity 


Get-Index  :  kType  x  Nj  — *  kType 

Get-Index{  ty,  i )  ^ 

cases  Get-Type{ty)  of 
type8((Wypet,  •  •  > ,  ktypet]}  —  ktypei, 
8tringtype(.,A:<2/pe)  -*  ktype 


end 
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JHm  :  li2\/pe  x  x  Nj  -►  k7)/pe 

Tritn{ty,lb,ub)  ^ 

catct  Get-Type{ty)  of 

typea([ktypeu  •  •  • ,  *<ypet])  —  typea(lktypeu,  •  •  • , 
stringtype(-,l:<ype)  -*  ttringtype((ub-lb  +  l),ktype) 

end 


4.0  Concatenation 

Concatenation  of  two  signal  types  are  handled  by  means  of  the  following  function. 

Cone  :  k  Type  x  k  Type  — *  k  Type 

Conc(ktypei,  ktypej)  ^ 

let  tyi  =  Get-Type{ktype\)  in 
let  tyj  =  Get-Type{kiypei)  in 
cases  (tyi,  tj)j)  of 
(  types((<ai,--.,/ai]), 

types([ti>,,...,«>,l))  ^  if  (ViG  {!../}•  (ta,  =[^1=  t6;))  =  true 

then  types(itai,  •  •  • ,  ta*,  tij,  •  •  • ,  t6/]) 
else  if  (Vt'G  {l.-k}  •  (tOi  =|^]=  ty2))  =  true 
then  types([<a,,-..,tot,ty2)) 
else  if  (Vj6  {l../}  •  tyi  ={tJ=  tbj))  =  true 
then  types([tyi,t6i,---,t6/)) 
else  0 

(  types([<t,  •••,<*]),  -)  —  let  (Vj€  {l..k}  •  t,  =Q=  tyj)  =  true  in 

types((li,---,ft,ty2]) 

(-,  types([ti,--.,  «i]))  -»  let  (Vi€  tj  4t1=  «yj)  =  truein 

types(ltyi,ti,  •••,«*]) 

(  stTmgtype(sizea,  kiype^), 

strmgtype(size^,ktypei))  let  (ktype,  ={f]=  ktypa)  =  true  in 

stringtype(  size,  +  sizei,ktype,) 

(  stpingtype(suc,  A-type),  .)  —  let  (ktype  =|n=  tyz)  =  true  in 

stringtype{  size  +  1,  ktype) 

(.,  stringtype(sjzc,  A'/ype))  —  let  (tyj  =f^=  ktype)  =  true  in 

stringtype(5ize  +  1,  Atype) 

end 


4.10  Reform 


This  function  flattens  types  so  that  they  are  available  for  reform 
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#■ 


Flatten  :  kType  — *  kTypeSeq 

Flatten{ty)  ^ 

cases  GeUType{ty)  of 

typeno  (typeno)  — »  [  typeno(fypeno)], 

stringtype  (aize,ktype)-*  [  strmgtype( size,  fcfypc)], 
types  ((fii  •••»<*])  -*  Flatten{ti) Flatten(tk) 

typevoid  (  typevoid] 

end 


4.11  Character  Check 

This  rule  checks  that  a  particiilar  type  is  of  the  form  of  an  ELLA  character. 
Is‘Char  :  Nj  — *  B 

Is- Char  (typeno)  ^  (  Env.tj/pedcc)[it/penoj.ncie  €  chars 


4.12  Constructing  Tuples 

These  functions  convert  sequences  into  tuples. 

Type  Tuple  '.kTypeSeq  —  kType 

TypeTuple(tseq)  ^  iflentseq=l 
then  (5eq[l] 
else  types  (fscq) 


ConstTuple  ikConstSeq  — *  kConst 

ConstTuple(cseq)  ^  if  len  cseq  =  1 
then  cseg[l] 
else  consts  (cseq) 


Constset  Tuple  :  kConstsetSeq  — *  kConstset 

Constset  Tuple(  csseq)  ^  if  len  csseq  =  1 

then  csscg[l) 

else  constsets  (csseq) 


UnitTuple  ikVnitSeq  -»  kVnit 

UnitTuple(useq)  ^  tflent(seq=l 
then  useq[l] 
else  units  (useq) 


ELLA  Transformation  Rules 
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4. IS  Case  Disjointness 

The  following  function  checks  that  a  CASE  statement  has  disjoint  choosers 


Disjoint :  kConstset  X  kConstset  -*  6 

Disjoint{cseti,  cseti)  ^ 

cases  (eseti,  cset2)  of 

(  enum(.,  ta^oi),  enum(.,  fa^oj))  -*  tagnoi^  tagnoj 

(  string(.,  [ta^on,  •  •  ■ ,  ta^nou]), 

string(.,[ta^02i,-*-,<affnojt]))  V 

(  constBetatsoe(  enum(.,  tagnoi),  consfseli), 

eonstsetassoc(  enum(-,  405/102),  cons/sct2)) —►  tagnoi^  tagnoj  V 


(  constsets([csai,  •  •  • ,  csot]), 
constsets([cs6i,  •  •  • ,  cs6i.])) 

(_,  constsetalts([csai,  ■  •  ■ ,  C5a(.])) 

(  constsetalts([csai,  •  • csot)),  .) 

(  constsetstring(sizea,  cseta), 
constsetstring(st2e(, 

(  constsetstring(stzea,  csela), 
string(<y,[<5i,---,<5t]) 

(  string(-,.),  constsetstring(-, .)) 
{  constsetany(type),  .) 

(.,  constsetany(4ype)) 

end 


Disjoint(constseti,  constset2) 

— *  \J  Disjoint(csai,  csbi) 

,={i..k} 

—  ^  Disjoint(cseti,  cso,) 

—  ^  Disjoint(csa,,  csetj) 

—  {sizea?^  size*)  V 
Disjoini(cset,,  csett) 

-*  (size,#  k) 

\J  Disjoint(cseta,  enum(ty,ig,)) 

,  =  {!..*} 

— ►  Disjoint(cset2,  cseti) 

— *  false 

—  false 


4.14  Local  Type  Checking 


Not- Local- Type  :  kType  —  B 

Not- Local-  Type{  ktype )  ^ 

cases  Get-Type{ktyp€)  of 

typeno( typcno)  -•  V(te  mg  Env./c/4ynomemap)  •  i  ^  typeno( typcno) 
types([ti, •■•,<„])  -*  Not-Local-Type{ti) 

i€  (l-.n) 

stringtype(size,  4)-*  Not- Local- Type(t) 
others  true 

end 


This  function  checks  that  its  input  type  is  not  a  locally  declared  type,  smd  will  be  used  by  local 
BEGIN..END  clauses  to  ensure  that  the  output  from  the  clause  only  contains  global  types. 


5  Transformational  Rules 

This  section  describes  the  transformational  rules  from  Core  ELLA  to  the  Kernel.  These  include 
the  semantic  checks  which  are  done  by  the  full  ELLA  compiler  on  Core  ELLA  ie.  type  checking, 
name  checking  etc.  Thus  this  section  includes  a  description  of  the  static  semantics  of  Core 
ELLA.  At  the  start  of  each  subsection  the  Core  ELLA  syntax,  for  which  the  transformations 
of  that  section  apply,  will  be  given.  In  each  rule  the  order  of  execution  of  the  pre-conditions  is 
left-to-right,  top-to-bottom. 


5.1  Enumerated  Values 

Enumerated  values  are  defined  by 

enumerated  ;:=  altname 

I  tagname  /  z 
I  tagname  'char 
I  tagname  "string" 

and  the  transformations  on  them  are  given  by 


EMI 


Find~ELLAint  (tagname)  =  ktypeno,  lb,  ub  lb<  z<  ul 
[tapname/z}  =|~EM~l=-  enum(l'<ypeno,  2-/6 -I- 1 )  :  typeno( ifciypcno) 


EM2I 


Find-Char  (tagname,  char)  =  cnum( ktypeno,  index) 


{tagname  'char{  EM  t=>  enum( ktypeno,  index)  :  typeno(ktypeno) 


EM3 


'^iE  {l.-k}  •  (Find-Char  (tagname,  char,)  =  cnuin(  ktypeno,  ktagnoi)) 


{tagname  "chari  ■  ■  ■  chori"J  =j  EM 


■tring( Itypeno,  [Itaynoj,  ■ ,  Itaynot])  :  stringtypeffc,  typenoftypeno)) 


5.2  Types 

Types  in  Core  ELLA  can  have  the  following  form 

type  ::=  typename 

1  STRING  [  size  ]  typename 
I  [  size  ]  type 
I  (  type,,  •••,  typet  ) 

I  0 


and  the  transformations  that  apply  to  them  are 
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T1 


Find- Type  (typename)  =  ktype 


[typename]  =j  T  [=>  ktype 


[H} 


[typename]  T  ^  ktype  Get-Type{kiype)  =  typeno(ktypeno)  Is-Char  (ktypeno) 
\STRING\size]typename\  =fTl=»  stringtype(5tze,  Artype) 


[T3]- 


[typc]  =(T_P 


[[5t2e]<ypc|  =[t}=>  types([ktype*'“]) 


Vt€  {1..A:}- ([type,]  =jYT=»  <.) 


[(<ypei,---,<ypet)|  ={t}=*>  TypeTuple{[ti,- ■  ■ ,  tt]) 


T5 


101  =r^  typevoid 


5.3  Constants 

The  Core  ELLA  defiiution  of  constants  is 


const 

STRING  (  size  ]  constl 

1  [  size  j  const 

1  constl 

const  1 

enumerated 

1  altname  &  constl 

1  (  const],  •  •  •,  constt  ) 

1  ?  type 

1  0 

with  their  transformation  rules  being 


[constl]  C  ^  kconst:  ktype 
Get-Type{ktype)  =  typeno{ktypeno) 

Is-Char  (ktypeno) 

[5TiJ/AG(«ze]co»wllJ  C  |=» 

conit*tring(«t2e,  Aconzt);  ttringtjrpe(jize,  typ9no(ktypeno)) 


[const]  C  t=»  kconst:  ktype 


[[stzejconst]  =fc~  =>  consts((fcconsl*'"]);  type8([/:type*‘**]) 
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Find-Alt{natne)  =  enum(A*(j^eno,  kiagno) 

[name]  C  i=>  cn\itn(kiyp€no,  ktagno):  typeno(&<ypeno) 


[enumentte<f]  ={em}=>  kenum:  ktype 
[enumerated]  kenum:  ktype 


[con«tl|  C  j=»  kconst:  ktype\ 

_  Find-A$$oc  (altname)  =  ktype^ 

kiypei  ^T|=  ktypej  Find-Alt  (altname)  =  eDum( ktypeno,  index) 

[altnametcconsilj  C  ^ 

conct«ttoc(  enum(i:typeno,  tndez),  Iconst):  typeno(i:typeno) 


[ci} 


Vie  {l..A}  •  ([cons<,|  C  )=»  kconst,:  ktype,) 

{(con»/i,  -  •  • .  con4<t)|  C  i=> 

Con«iTup/e([l:conjii,  •  •  • ,  Jbconji^]):  TypeTuple{[ktypei,  •  •  • ,  ktype^]) 


C7 


={t}s*  ktype 


[T/ypcJ  ={cl=>  constquery(fciype):  Irtype 


[C8> 


lOI  =fcl=> 


constvoid:  typevoid 


5.4  Constant  Sets 
Constant  sets  are  given  by 


constset 

constseiii  1  •••  1  constset  It 

constsetl 

::= 

STRING  [  size  ]  constset2 

1  [  size  ]  constsetl 

1  constset2 

constset2 

enumerated 

1  altname  k  constset2 

1  (  constset],  constsett  ) 

1  type 

with  transformations  on  them  given  by 
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CSl 


Vie  {l-.i}  •  ([consfselij 

CS  t=>  kcset i.  ktype i) 

1  Vi€  {l..i}  (itypei 

=iTJ 

1=  itypei) 

[conjt5eti 


con5t5e4]  CS  t=>  constsetalts([/:c5cti,  •  •  • ,  kcsetk])'-  ktype^ 


\contt$ei2\  =^CS  keset.ktype 
Get- Type  (ktype)  =  typeno(kiypeno) 

It- Char  (ktypeno) 

\STRING[size\coniUet2\  H  CS 

confttetstring( •tringtype(it2e,  ty’peno( if ypeno)) 


CS3I 


JcoTi5f5efl|  CS  kcset:  ktype 


[sfzejconitse/lj  =  CS  h>  constsets([/:csef *'"]):  types((/:<ype*‘*']) 


CS4 


if  rei  = 


Find-Type-or-Alt{name)  =  res 
Iname  I  =rcsU 

en\im(ktypeno, .)  then  ret  :  typeno( ktypeno)  else 


constsetany(re5);  res 


CS5 


(enumerated]  =JEM  -?■  kenum:  ktype 
J  enumerated  I  =j  CS  kenum:  ktype 


CS6I 


[constset2j  =|  CS  ^  kcset:ktype\  Find-Assoc  (altname)  =  ktypej 

kiype-i  T  t=  ityp«2  Find-Alt  {altname)  =  enum(ktypeno ,  tagno) 


laltnameL.consttet2l  =  CS  b 

constsetassoc(  enuzn(i<vpeno,  (ayno)  ,  kcset):  typetio(ktypeno) 


CS7 


Vi€  •  (Icon5tset,|  =  CS  [=^  kcset ii  ktype i) 

((constseti,  -  -  - ,  constset^)]  CS  ^=> 
ContttetTuple{[kcteti,  ■  •  • ,  icseltj):  TypeTuple{{ktypei,-  ■  ■ ,  ilype*]) 


5.5  Units 

The  complete  Core  ELLA  unit  syntax  is  given  by 

unit  ::=  tmit  CONC  unitl 

I  unitl 


20 
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unitl  :;=  STRING  [  size  ]  unitl 

I  [  size  }  unitl 
I  fnname  unitl 
I  altname  k  unitl 
I  unit2  //  altname 
I  unit2 

unjt2  :;=  signalname 

I  enumerated 
I  unit2  [  index  ] 

I  unit2  [  index/ut  ..  index^ps  ] 

I  unit2  |[  unit  ]] 

I  REPLACE  (unit,  unit,  unit) 
I  ?  type 
I  closedclause 

with  the  transformations  defined  by 


if  re$  = 


Find'Sig-or-Alt(name)  -  res 

Jnamf|  =nru 

enum( i;(yp«no, .)  then  res  :  typeno( i(ypeno)  else  res 


I  enumerated?  —  EM  t=>  kenvm  :  ktypeno 
{enumerated]  =|u3=^  kenum\  ktypeno 


{unitf  =■  I'  is-  iunit]'.  ktype\ 
Junttl]  =(  U  fes  iunit]:  ktypei 
ktypecut  =  Conc{ktypei,  ktypej) 


{unit  CONC  unitll  =|  U  ^  conc{kunit\,k\initj,ktyp€,„t)'  ^tj/pe,,c 


[unitl]  =|~U  kumt:  ktype 
Get-Type{klype)  =  ty  peno(  it  ypeno) 

Is- Char  (kiypeno) 

(5TA/NC[s«elumtlJ  ={F^ 

nnitstringfsiie,  iunit):  stringtypefsue,  typenofilypeno)) 


I  unitl  I  ={u3=>  kunit:  ktype 


([suejunitl]  ={y3=>  units([fcunil**"]):  typei([fclype*'*']) 


[unitl]  =fu}:»  kunit:  ktype 

fnno  =  Find'Fn  {fnname) _ 

(  Env./hdec)[/hno).tnputtppe  =jTM  ktype 


(/nname  unitl]  in«tanee(/nno,  fcunit):  ((  Env./iidec)[^no].otttpttttype) 
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(unitl]  1)  b  kunU\:  ktypt\ 

Ftnd-Atsoc  (altname)  =  ktype2 

kiypti  fciypti  Find-Alt  (altname)  =  enum{ktypeno ,  tagno) 

|ai<namci(ctin>tl]  H  U 

umtattoc(  enum(i<ypcno,  la^no),  kumti):  typeno(ktypeno) 


[iini<2]  U  (z>  kunti:  ktype  Ftnd-Astoc  (altname)  =  ktypeout, 
Find-Alt  (altname)  =  enum(tgpeno,  index), 
typeno(tgpeno)  T  1=  ktype 


\umt2f  I  altname]  =rul=>  extract  (itunil,  enum(  typeno,  index)):  ktypeout 

[unt<2t  =1  U  kunit  :  ktype 

Get-Indez{ktype,  tndez)  =  t _ 

tttnit2.  m<fgr  ||  =lul=>  indexi  kumi,  index,  t):  t 


Iunti2|  U  kumt  :  ktype 

_ Trim(ktype,tndezi,^i,index„fi)  =  t _ 

={ul=>  trimfArurut,  <):  t 


(iini<2|  =j  U  t=»  kumtj:  ktype\ 
fun«<l  ={Uj=>  iunitj:  ktype^ 

Find- Integer- Typelktypej)  =  ktypeno,  I,  u 
/'ini>/{ou'(tfype] )  =:  sue,  tt  n<  sue 

(un»t2([wnit]]J  dy\ndex(kuniti,kunit2,it):  tt 


{unit||  =  U  kiimt\:  ktype-i 
(unitj^  =  U  ^  kumtj:  ktype^ 

[unit]]  =  U  ^  tunit]:  klype^ 

Fxnd-Integer-Type(ktype2)  =  ktypeno,  I,  u 
Find- Row(  ktype  I )  =  sue,  t 
1<  /<  u<  »»2e  ktypej  T  |=  t 

|ii£PXi4C£(ttmti,  unit j,  unit])]  =jlj]=>  replace(^*vnili,  Irunit]*  ^un<<3):  ktypei 

_ [type]  ={^  ktype _ 

(?(ypr]  =ful:»  unitquery(/;(]/pe);  ktype 


[closedclause]  CC  ^  kunit:  ktype 
[closedclause]  kunit:  ktype 


5.6  Closedclause 


Closed  clauses  are  given  by 


closedclause 


cases 


CASE  unit  OF  cases  ELSE  unit  ESAC 
(  uniti,  •  •  •,  unitt  ) 

BEGIN  stepi  •••  step^.i  OUTPUT  unit  END 

0 


constset]  :  unit],  •  •  •,  constset^  :  unit^ 


step  ::=  typedec 

I  fndec 

I  LET  signalname  =  unit  . 

{  MAKE  fnnatne  :  signalname  . 
I  JOIN  unit  —  signalname  . 


with  the  transformations  given  by 


r^F- 


|[constse/|  ^  CS  |=>  kconsttet:  ktypeconst 
(unilj  djj  l=>  kuntl:  ktype 


|constsc<:  unit{  ={CAj=>  kconsiset:  ktypeconst,  kunii:  ktype 


CCl 


Junitjj  HUN-  kumt.n.  ktypt,„ 

Vi€  {1  ..I}  •  (fcajeJ  H  CA  N  kea,:  ktypec,,  tu,:  ktypeui) 

(unit;|  H  U  |=>  :  ktypcct, 

Vi€  {1..*}  (itypec,  ={^=  ktype,„)  Vi€  {l.  k}  {ktypeu,  =fT]=  ktypce 

^1.76  {l-.i/  I#  }  Disjoint {kcs,.  kcs^) 


JCj4S£  unit]  Of  casei.  ■  ■  ■ .  caset  ELSE  un«tjE54Cj  H  CC  N 
cafeclauseilun>t,„,  I  case(i(;c5],  lu] .  c»se{kcsi,  ku^)]<kunittat}:  ktype,„t 


Vie  •  ((tinitjj  =jU]:»  kunit,:  ktypei) 

[(umti.  -.ttm/t)]  ={C£}=> 
UnitTuple{[kunii\,  •  -  • ,  ikuntt^]);  Type  Tuple  ([ktypei,  " 


CC3 


Scope- Begin _ 

V16  ((stepj  ={SP^  true) 

(uni(|  =j  U  ):»  kunit:  ktype 

Not-Local-Type(klype)  Cheek-Joins  Scope-End 
[BEGIN  stepi  •  •  •  slepk.iOUTPUT  unit  END]  =j  CC  :»  kunit:  ktype 


[CC4} 


I  0  I  =j  CC  unitvoid:  typevoid 
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|- --  Scope-Fn-Begin  [typedec\  =jTD|:^  true 

Seope-Fn-End 

[typedee]  ^SP  t=>  true 

SP2 


Scope^Fn-Begin  \fndec\  =jFD  ^  true 


\fndec\  =jSP  =»  true 


Scope-Fn-End 


SP3 


[unit]  =|U  kunit:  ktype 

[LET  sigtudname  =  unit.]  SP  |:» 

Add-Signal  (  tign»ldec{§ignalname,  ktype,  kunit),  joined) 


Find-Fn  (fnname)  =  fnno 
l^^yp^in  =  (  .fndec)\fnno].inputtype 
ktypeout  =  (  Env.fndec)\fnno].outputtype 

[MAKE  fnname:  signalname .]  =j  SP  ^ 

Add-Signal  (  signaldec{tignalname,  ktype  out,  instance(/nno,  unitquery(i;type,„ ))),  unjoined) 


SP5 


[unit]  =|_U_p  iunit:  ktype. 

Find- Unjoined  (aignalname)  =  fnno 
Find-Signal  {iignalname)  =  »igntd{$ignalno):  ktype  out 
(  Eny.fndec)[fnno].inputtype  T  |=  ktype 


[JOIN  unit — >  aignalname. [  ={spJ:o 

Add- Join  (  ■ignaldec(4i9natname,  i;type«v(>  instance(/nno,  iunit)),  jiyna/no) 


5.7  Built-In  Functions 

Built-in-functions  (fiuiction  bodies)  are  defined  to  be 

functionbody  ::=  imit 

I  REFORM 
I  BIOP  biopname 

I  DELAY  (  initialvalue,  ambigtime,  ambigvalue,  delaytime) 
I  IDELAY  (  initialvalue,  delaytime  ) 

I  SAMPLE  (  interval,  initialvalue,  skewtime  ) 

I  RAM  (  initialvalue  ) 

with  the  following  transformations 


I — ^  TypeTuple{FlaUen{ktypein))  =[t]=  Type Tuple{Flatten{ktype out)) 

LBllJ 

[REFORM\  {ktypein,ktyp€out}  HBI  r  reform 
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t 


[m} 


Find-Biop{biopname,  ktypcm,  ktypeg^t)  =  h\op{biopname) 


[BIOP  &topname]  {ktypein,ktypeo%t}  =fBT  =»  biop(6topnamc) 


[initialvtUue]  kconsii'.ktypti 

[amfti^vaiue]  =  C  kcomi ktype ^ 
kivptin  =S=  ^1^=  ktypti  =(t|=  kiype, 

0<  ambigiime<  delaytime  0  <  delaytime 


[DELAY [initialvahie,  ambigtime,  ambigvalue,  ttWayttme)]  {ktype^n,  ktypeaut}  H  BI 
delay ( icon* ambigtime,  keonst^,  delaytime) 


BI4 


[mttia/pg/uej  =fcl=»  kconsU  kiype _ kiype  ktypcjn  =^1^=  ktypcput 

[IDELAY{intitalvalue,delayttme)\  {i<ype,„,  ilyptaui}  H  BI  i=» 
idelay(icon«l,  delaytime) 


[tnitialvaluej  =j  C  ^  keonst:  ktype 

‘interval<  skew<  interval  ktypein  ^  T  ]=  ktypeout  =j  T  |=  ktype 

[SAMPLE(mterval,intUalvalue,akew)l  {ktype ktype H  BI  [=> 
tample{tnterval,  keonst,  skew) 


[initia/value]  =j  C  1=>  keonst  j:  ktype  j 

ktype, n  —  4ypet([l:<ype^a<, ,  ktype  vTittaddrt$$  <  j»  1  ktype  ,„rittenaHt]) 

kiyptdtu  =[^1=  ktype  cut  ={t]“  ktype  j 
Find- Integer- Type  (ktype ,cnu,iirr„)  =  -  ,  lb,  ub 
Find- Integer- Type  (ktype „ci*diTf$)  =  -  ,  lb,  ab  lb  =  1 
_ Check-Two-  Val  (Get-Type(ktype„,^,„„ctU  )) _ 

|A/liI/{tnttza/ua/«e)J  {ktype  in,  ktype  cut)  H  BI  |=>  reim(kconsti) 


5.8  Type  Declarations 
Type  declarations  are  defined  as 


typedec 

::=  TYPE  typename  =  typeornew. 

typeornew 

::=  type 

1  new 

new 

::=  NEW  tagname  /  (  Iwb  .. 

1  NEW  (  typealti  I  •  •  •  I 

1  NEW  tagname  (  'chaxi 

upb  ) 
typealt  t  ) 

1  . . .  1  'char*  ) 

typealt 

altname  it  type 

1  altname 
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with  transformations  on  them  by 


TDl! 


[new]  =jNW  =>  knew 


TD2 


[TYPE  typename  =  new.  J  Add-Type  (  typedec(typenome, faiew)) 

_ bype\  ={t)»  ktype _ 

[TYPE  typename  =  type.  J  =}TD  t=»  Add-Type-Name  {typename,  ktype) 

lwb<  upb  Add-Tag  (tagname) 


NWl 


[NEW  tagname l{lwb..upb)\  =  NW  =>  ellaint ( ta^ame, /w6,  vp6) 


NW2 


Vie  •  ([typeohj  =i  TA  t=>  t.) 

j  •  {ti.tagname^  tj. tagname) 


[NEW  (typealti  |  •••  |  typeoitt)]  =»  tags{(ti, •  •  •,  t*]) 


NW3 


Vi, ye  {l  .i}  j  ■  (chavi^  charj) 

Add-Tag  {tagname) 


TAl 


[NEW  tagname  {' char  I  |  |  'cAor^)]  =  NW  => 

chars((ayname,  (c/»ori,  •  •  • ,  ehar^]) 


[type]  =[t]=>  ktype  Add-Tag  {altname) 


[oitname&type]  =jTA  =»  ta^{altname,ktype) 


TA2 


Add-Tag  {altname) 


[a/tname]  ={TA  |=>  tag{altname,  {nil}) 


5.0  Function  Declarations 

Function 

declinations  are  given  by 

fndec 

::=  FN  fhname  =  input  — »  type 

input 

::=  (  terminali,  •••,  terminal^  ) 

1  0 

terminal 

type  :  signalname 

1  type 

and  the  transformations  on  them  by 
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FDl 


[input]  =^IN  |=>  ktypeinpuu 

[type]  4Tk  ktype,ut 

(unit)  =flj^  inintt:  kiype 
ktyp^out  4^^=  ktype 


[FA^  fnname  =  input—*  type:  unit.  J  =\  FD  (=> 

Add’Fn  (  tad*c( fnname,  ktype Env-Migdec,  ktypeout,  kunii)) 


[input] 
[<»P«1 


*11 


ktype  inputt 
ktype, ut 


[6ui/tin]  {  Cet-  Typejktype  jnpuu ),  Get- Type  (ktype, ut )}  4bi1=>  khuiltin 

[FiV  fnname  =  input— >  type:  builtin.  ]  =j  FD  t=> 

Add’Fn  (  liidec(/hname,  i:type,„^.(,,  F.tt\.$igdec,  ktype, ut,  khuiltin)) 


Vie  {1../:}  •  ([temina/,]  =^TM  ^=>  ktypci) 
[(terminoii,***,  termina/t))  =|lN  i=»  Typ€Tuple([kiyp€i,‘  “ ,  kiypesk]) 


[  0  1  =(^l=»  typevoid 


TMl 


[type]  =fTV  ktype 

Add’Signal(  ngnaldac($ignalname ,  ktype ,  input),  joined) 


[type:  si^o/name]  ={T^y=>  ktype 
[typel  =rrl=»  ktype 


TM2 


[type]  =JTM  =>  ktype 


5.10  Closure 


A  Closure  is  defined  to  be 


declaration 


typedec 

fndec 


closure 


declaration!  •  *  •  declaration^ 


with  the  following  transforms 


[dD 


[typedec]  =^TD  =>  true 
[typedec)  =f^  =>  true 
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D2 


Stackenv  \fndec\  =jFD  true  Unstackenv 


\fndec\  ssfo"  =>  true 


[cT} 


Vie  •  ((dec/flrotton,J  =jD  [:»  true) 

\declantioni  •  •  •  declarationk\  =i  CL  true 


KERNEL 


{cio«ttre]  CL  ^  true 


[c/o5t<re]  =j  KERNEL  =>  {  Env.typedec,,  Eav.fndec) 


6  Software  Implementation 


The  functions  and  transformational  rules  given  in  the  previous  sections  have  been  trans¬ 
lated  into  Lisp  code.  This  work  forms  parts  of  the  commitment  to  the  lED  project  “Formal 
Verification  Support  for  ELLA”  which  is  developing  a  Lisp  environment  and  toolset  for  Formal 
Verification.  The  Lisp  system  and  the  Lexical  Analyser  were  made  available  for  the  project  by 
Harlequin  Ltd.  of  Cambridge. 


The  Kernel  data  structures  were  translated  into  Lisp  structures,  for  example  typeno(typeno) 
became 


{def struct  ttypeno{typeno)) 

where  the  $  is  used  to  prefix  all  Kernel  data  structures  (corresponding  to  bold  type  in  Appendix 
C).  Translation  of  the  functions  defined  in  this  document  to  Lisp  was  straightforward  with  only 
a  few  ‘additional  functions  needed  to  handle  recursive  structures. 


7  Transformation  Examples 


In  this  section  we  give  examples  of  Core  ELLA  descriptions  which  have  been  compiled  into 
Kernel  data  structures  by  means  of  the  software  implementation.  The  implementation  has 
been  carried  out  using  the  Htu^lequin  Lisp  system  (LispWorks),  with  the  resulting  code  being 
incorporated  into  the  verification  enviromnent  of  the  project. 


The  first  example  is  taken  from  [MH91],  whilst  the  second  example  contains  Core  ELLA  text 
which  will  test  each  transformation  nile  (although  not  for  ever  possible  combination  of  con¬ 
structs). 


7.1  Simple  Example 

This  example  is  taken  from  [MH91]  and  is  reproduced  below 


rm 
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TTPE  bool  -  lEV  (t  I  f). 

FI  lOR  *  (bool:i&l»  bool:i&2)  ~>  bool: 
CASE  (i&l,  in2)  OF 

ELSE  t 
ESIC. 


FI  A  s  (bool: ini,  bool:in2)  ->  bool: 

BEGII 

LET  ip  s  (inl,in2). 

FI  B  «  (bool:ipl,  bool:ip2)  ->  bool:  I0R(ipl,ip2} . 

MAKE  B:b. 

JOII  ip  ->  b. 

OUTPUT  b 
EID. 

In  (MH91]  it  was  shown  how  each  of  the  transformation  rules  was  applied  to  these  functions  and 
the  final  Kernel  environment  was  deduced.  By  means  of  the  Lisp  implementation  of  the  rules, 
the  final  Kernel  environment  was  calculated  and  is  shown  below,  where  it  has  been  printed 
out  by  means  of  a  specially  written  Lisp  printer. 


TYPEDECS> 

TYPEDEC  ("bool"  Tags([Tag(t.  IIL),Tag(i,  BID])) 

FIDECS> 

FIDEC(  BOR, 

Types ( [Typeno ( 1 ) , Typeno ( 1 )  ]  ) , 

CSignaldecC'inl",  Typeno(l),  input), 

Signaldec("in2",  Typeno(l),  input)], 

Typono(l) , 

Caseclause(Units( [Signal(l) ,Signal(2)] ) , 

CCase(Constsets( [Enumd .  2),Enun(l.  1)]),  Enum(l,  2)), 

Case(Constset8( [Enumd ,  1), Enumd,  2)]),  Enumd,  2)), 

Case (Constset8( [Enumd,  1), Enumd,  1)]),  Enumd,  2))], 

Enumd,  1))) 

FIDEC(  B, 

Types ( [Typeno (1 ) , Typeno (1 ) ] ) , 

[SignaldecC'ipl",  Typeno(l),  input), 

Signaldec("ip2",  Typeno(l),  input)], 

Typenod) , 

Instance ( 1 ,  Units ( [Signal( 1 ) ,Signal(2)] ) ) ) 

FIDEC(  A, 

Type s ( [Typeno d ), Typeno (1 )]) , 

[SignaldecC'inl",  Typeno(l),  input), 

Signaldec("in2",  Typenod),  input), 

SignaldecC'ip" ,  Types(  [Typenod)  .Typenod)]  )  ,  Units (  [Signal (1)  ,Signal(2)]  )  )  , 
SignaldecC'b",  Typenod),  lnstance(2,  SignalO)))] , 


ELLA  Transformation  Rules 


29 


Typano(l). 

Sign&l(4)) 

SIGDECS> 

FIHiPS> 

LCLFlHiPS> 

napC’A*’,  3) 

napC'IOR".  1) 

TYIAKEMiPS> 

LCLTT1AHENAPS> 

mftp("bool",  TypanoCl)) 

BapC'l'*,  ConsttagCD) 

napC't".  Consttag(l)) 

SIG1ANENAPS> 

LCLSZGIAKENAPS> 

USEDTYIAMES> 

USEDF1IAKES> 

USEDSIGIAMES> 


This  environment  is  identical  to  the  environment  given  in  [MH91]. 


Due  to  the  nature  of  the  Kernel  data  structures  it  is  possible  to  print  out  the  above  environment 
in  a  more  readable  format.  This  format  takes  on  a  layout  which  is  a  ‘recursive-LET’  ELLA-like 
form  e.g. 


TYPEDEC  bool  =  HEW  (t  I  f) 

FNDECS> 

FHOEC  lOR  *  ((bool,  bool))  ->  (bool): 

BEGIS  (LET  ini  =  input .  LET  in2  =  input . ) 
OUTPUT  CASE  (inl,in2)  OF 
(  ((1  .t  )  :  f  ) 

((t  .1  )  :  f  ) 

((t  .t  )  :  f  )) 

ELSE  t 
ESAC 

EID. 

FIDEC  B  ■  ((bool,  bool))  ->  (bool): 

BEGII  (LET  ipl  -  input.  LET  ip2  -  input.) 
OUTPUT  lOR  (ipl,ip2) 

EIO. 

FIDEC  A  «  ((bool,  bool))  ->  (bool): 

BEGII  (LET  ini  ^  input. 

LET  in2  -  input. 

LET  ip  B  (inl,in2). 

LET  b  *  B  ip.) 

OUTPUT  b 
EID. 

SIGDECS> 

FINAPS> 

LCLFIKAPS> 


30 


map (“A"  :  3) 
mapC'IOR"  :  1) 

TY1AKEMAPS> 

LCLT7IiNEMAPS> 
mapC'bool"  :  bool) 
mapC’f*  ;  "bool") 
mapC't"  :  "bool") 

SlGliHENiPS> 

LCLSIGIANEMAPS> 

USEOTYIAHES> 

USEOFIHAKES> 

USEDS1GIAMES> 

The  ‘map’  fields  show  which  declarations  are  available  for  use  at  the  outermost  level,  hence 
function  ‘B’  does  not  appear  in  either  of  the  function  maps. 


7.2  Transformational  Rules  Test 


In  this  section  we  present  a  test  program  which  goes  through  the  different  transformation 
rules. 

The  first  part  of  the  test  program  looks  at  individual  expressions,  for  exaunple  constant  expres¬ 
sions  are  created  in  a  delay  expression. 


FH  rBODT.30  * 
FK  FB0DT_31  = 
FH  FB0DT.32  = 
FH  FB0DT.33  = 
FH  FB0DT.34  = 
FH  FB0DT.3S  = 


(char: one)  ->  char*  IDELAY(  c'd.  3). 

(string:one)  ->  string:  IDELAY(  c"abctghde”,  3). 
(string:one)  ->  string:  IDELATf  STRING  [8]  c'c,  3). 
((en\un,  int);one)  ->  (enujn,  int);  IDELAT(  (el,i/i), 
(assoc:one)  ->  assoc:  IDELATC  val  t  l/7 ,  3). 
(enuin:one)  ->  enum:  lOELAYC  Yenun.  3). 


fenun* 
fstring# 
fconststring# 
3).  Sconsts# 
tconstassoct 
fconstquery# 


Scoping  rules  are  considered  in  the  second  part  of  the  test  program  where  a  number  of  functions 
are  given  for  testing  the  different  forms  of  enumerated  values  applied  to  units  as  well  as  testing 
the  scoping  rules.  For  example 

FH  H0NBER_4  =  (string:on«,  string:  tvo,  [4] string:thza« ,  rang*:  four)->string; 

BEGZH 

TYPE  sanun  =  HEW  (sal  I s«2 I se3l se4) .  itypadae* 

TYPE  sroa  =  [4] string. 

TYPE  snama  -  string. 

FH  FBODY.l  =  (snana.'ona,  srov:  tvo)  ->  (srov.  snana):  REFORM. 

FH  IHHER.l  -  (stxing:ona,  snana:  too.  sro«:tturaa,  ranga;  Your)  ->  string: 


BE6IH 

LET  sig_l  =  FBODY.l  (ona,  thraa).  tinstanea* 

LET  sig_2  =  e"Abcdafgh".  #string# 

LET  sig_3  s  ona.  tsignal# 

LET  sig_4  -  thraa [2].  findaz* 

LET  sig.B  *  thraal3..4].  atrint 

LET  sig_6  *  thraa [[four]] .  tdyindaz* 
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LVr  sig.T  s  ?siuui«. 

UT  •ig.8  «  [6](FB0DT_1  (two,  throo)). 

UT  ■ig_9  *  UPUCKCthzoo,  four.  obo). 
tZT  elauao  *  BB6ZI  FI  FBOOT.S  *  (string: j)-»triag:j . 
MAKI  nOOT.B:  fbody.S. 

JOZI  two  ->  fbody_6. 

oirrptrr  fbody.s 

EIO. 


tuaitquory* 
*naits(row)# 
troplseo# 
tbogia. .sad# 


n  ZIIEE.S  -  (striag:oao,  sasao:  two,  srow:throo,  raago:  four) 
oao. 

MAJCB  FBOOT.l:  fbodj.l. 

JOZI  (oao,  sig_8[l]Cl][l]  COIC  sig.8[l] [1] [2. .4] }  ->  fbody.i. 
OUTPUT  sig_6Cl] 

BIS. 


->  string: 
*fadoe# 

#eoae# 


MIXB  ZIIBB.l  :  iaaor.l. 

JOZI  (oao,  two,  throo,  four)  ->  iaaor.l. 
LBT  output  *  iaaor.l. 

OUTPUT  output 
BID. 


*aoko# 

tjoia# 

#lot« 


The  complete  test  program  is  given  in  appendix  F. 

This  test  program  has  been  successfully  submitted  to  the  Lisp  implementation  of  the  rules 
defined  in  this  document.  The  complete  file  took  2.6  secs  to  translate  into  the  Kernel  via  the 
implementation  on  a  SparcStation  2  and  the  final  environment  contained  72  functions  and  30 
global  identifiers. 


7.3  From  Full  ELLA  to  the  Kernel 

In  appendix  G  we  present  an  example  taken  from  a  description  in  High  level  ELLA  using  se¬ 
quences,  down  to  Core  ELLA  via  the  full  ELLA  system  and  then  into  the  Kernel  via  the  Lisp 
system.  The  example  is  based  on  a  three  pump  controller,  the  functionality  of  which  is  defined  by 


A  reservoir  is  connected  to  a  lake  by  a  pipe  line.  Water  is  taken  from  the  lake  to  the  reservoir 
by  a  system  of  three  pumps.  Three  level  sensors  are  installed  on  the  reservoir.  Their  outputs 
are  denoted  by  signals  ai,  02,  03.  Signal  Oi  is  0  when  the  water  is  above  level  i,  for  i  =  1,2,3 
and  has  a  value  1  when  the  water  is  below  level  i.  The  number  of  pumps  that  are  on  at  any 
one  time  depends  on  the  water  level  in  the  reservoir.  In  particular:  if  the  water  level  is  between 
level  I  and  2,  then  one  pump  should  be  in  operation;  if  the  water  level  is  between  level  2  and 
3,  then  two  pumps  should  be  in  operation;  if  the  water  level  is  below  level  3,  then  three  pumps 
should  be  in  operation.  Of  course,  if  the  water  level  is  above  level  1  then  no  pumps  should  be  in 
operation.  In  order  to  equalise  wear  on  the  pumps,  they  should  come  into  operation  in  a  cyclic 
manner. 


Appendix  G  gives  the  descriptions  for  high,medium  and  Core  ELLA  as  well  as  the  Kernel 
description  which  is  written  out  in  the  recursive-let  format. 


7.4  Microprocessor  TVansformations 

A  number  of  high  level  descriptions  of  microprocessors  where  submitted  to  the  complete  trans¬ 
formation  system  from  Full  ELLA  to  Core  ELLA  to  the  Kernel.  Table  7.1  shows  the  resulting 
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CPU  times  for  the  Core-to-Kemel  phase  together  with  the  number  of  lines  of  Kernel  code 
generated.  The  number  of  lines  of  original  high  level  ELLA  and  the  resulting  Core  ELLA  de¬ 
scriptions  are  given  for  comparison.  The  Lisp  code  which  produced  these  results  was  compiled 
and  loaded  using  the  Harlequin  Lisp  system,  this  gave  a  very  signiiicant  improvement  in  speed 
for  the  transformation  from  Core-to-Kemei  over  equivalent  interpreted  code.  The  translator  is 
implemented  on  a  SparcStation  2. 


/^processor 

High  Level 
ELLA  lines 

Core  ELLA 
Lines 

Kernel  Lines 

No.  of 
Functions 

No.  of 
ids 

Core-to-Kemel 
Compile  Time 

68000 

2j  8 

4280 

72000 

197 

124 

93.6  secs 

Viper 

2^34 

2625 

24000 

229 

52 

25.0  secs 

6800 

1088 

2205 

5300 

46 

212 

23.0  secs 

6502 

991 

1623 

3900 

41 

88 

16.3  secs 

Table  7.1  Microprocessor  Translation  Times 


The  number  of  functions  and  identifiers  correspond  to  those  available  in  the  final  Kernel  en¬ 
vironment.  The  translation  from  High  level  ELLA  to  Core  ELLA  vbls  carried  out  by  means  of 
the  software  transformations  in  the  full  ELLA  system. 


8  Conclusions 

In  this  document  the  formal  definition  of  the  Lisp  implementation  of  the  transformational 
mapping  from  Core  ELLA  to  the  Kernel  has  been  given.  Examples  of  use  of  the  Lisp  imple¬ 
mentation  have  been  presented. 
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A  Glossary  of  Symbols 

Functions 


f:  D\  X  D2  R 

signature 

/A  ... 

function  definition 

Hd) 

application 

if  then  ...  else  ... 

condtional 

let  X  =  . . .  in  . . . 

local  definition 

case  z  of  ...  else  • . .  end 

choice 

pre 

pre-condition 

Composite  Objects 


Object: :  fieldname:  fieldtype 
p(F,s t) 
n{E,s  {E.s  t  <)) 


Record  Object  definition 

change  field  s  of  E  to  hold  t 

update  field  s  of  E  by  overwriting  with  t 


Sets 


T-set 

finite  subset  of  T 

set  enumeration 

{} 

empty  set 

t  €  T 

set  membership 

TiDTi 

set  intersection 

Ti  U  Tj 

set  union 

Ti  C  Ti 

set  containment 

Z 

{•••,  -1,  0,  1,  •••} 

Ni 

{1,  2,  •••} 

B 

{true,  false} 

Maps 


D  R 

finite  map 

dom  m 

domain 

rng  m 

range 

nil  t  tnj 

overwriting 

Sequences 


S’ 

finite  sequence 

[*i.  •••,<*] 

sequence  enumeration 

(1 

empty  sequence 

Icn  1 

length  of  sequence  1 

•1  ^  *2 

concaternation 

t(i  €  indf  sequence)  •  sequence[i]  =  s 

The  unique  element  of  sequence  which  equals  5 

I 
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Transformat  ion 


Env  =  env(.,.,. 

Transformation  Environment 

^nv.  fieldname 

field  selection  in  the  Kernel 

(  Etiv.filedname)lnumber] 

indexing 

inv(  Env) 

invariant  of  environment  Env 

[Core-Syniaz\  =jRuJe  |=>  Kernel-Expressions 

formal  transformation 

syntactic  separators  (  :  ,  ) 

kiypei  =fT|=  ktype2 

type  equality  in  the  Kernel 

Kernel 
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B  Core  ELLA  Composite  Syntax 

B.l  Basic  Notation 


abc  €  Abe 

‘abc’  is  an  element  of  the  set  ‘Abc’ 

b  c 

the  syntax  definition  of  ‘b’  is  ‘c’ 

1 

the  separator  of  alternatives  in  a  syntax  definition 

1 

ELLA  separator  of  alternatives 

di  •••<!* 

one  or  more  occurrences  of  ‘d’ 

di,  • • •  ,  d* 

one  or  more  occurrences  of  ‘d*  separated  by 

Note  if  k=l  then  no  is  present. 

di,  •  •  ■  ,  dt.i 

zero  or  more  occurrences  of  ‘d’  separated  by 

Note  if  k=0  then  no  is  present. 

Z 

Ni 

{  -  } 

Identifier 

Lower  case  letter 

Fnname 

Upper  case  letter  or  symbol 

Constant 

ELLA  constant  expression 

Character 

Any  printable  character 

B.2  Syntactic  Categories 

typename 

€ 

Identifier 

(ELLA  type  name  e.g.  lower  case) 

signalname 

€ 

Identifier 

(ELLA  signal  name) 

tagname 

6 

Identifier 

(ELLA  tagged  type  name) 

altname 

€ 

Identifier 

(ELLA  enumerated  type  alternative) 

fnname 

€ 

Fnname 

(ELLA  function  name  e.g.  upper  case  or  symbol) 

biopname 

e 

Fnname 

(ELLA  BIOP  name  e.g.  upper  case  ) 

z 

e 

Z 

(An  integer) 

Iwb,  upb 

€ 

Z 

(An  integer) 

j,k 

6 

N, 

(A  non-zero  positive  integer) 

index 

€ 

N, 

(A  non-zero  positive  integer) 

size 

€ 

N, 

(A  non-zero  positive  integer) 

interval 

G 

Ni 

(ELLA  timing  interval) 

ambigtime 

€ 

Ml 

(Ambiguity  delay  time) 

delaytime 

e 

N, 

(delay  time) 

skewtime 

€ 

N, 

(skew  delay) 

initial  value 

€ 

Constant 

(Delay,  Retiming  or  Ram  initialisation  value) 

ambigvalue 

€ 

Constant 

(Delay  ambiguity  value) 

char 

€ 

Character 

(A  printable  character  e.g.  ‘a’) 

string 

€ 

String 

(A  string  of  printable  characters  e.g.  ‘abc’) 

I  fit! 
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B.S  Syntactic  Definitions 
Enumerated 


enumerated 


Type 

type 


Constant 

const 


const  1 


Constset 


altname 
I  tagname  /  z 
I  tagname  'char 
I  tagname  "string" 


typename 

I  STRING  (  size  j  typename 
I  [  size  ]  type 
I  (  type,,  ••  •,  type*  ) 

I  0 


STRING  (  size  j  const  1 
I  [  size  1  const 
I  const  1 

enumerated 
I  altname  k.  const  1 
I  (  const,,  •  •  •.  const,.  ) 

I  ?  type 

I  0 


constset 


constset  1 


constset2 


constset,  I-  -  I  constset. 


STRING  [  size  ]  constset2 
[  size  ]  constsetl 
constset2 


enumerated 
altname  &  con5tset2 
(  constset],  •  • -,  constset,  ) 
type 
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Unit 

unit  unit  CONC  unitl 

I  unitl 

unitl  ::=  STRING  [  size  )  unitl 

I  [  size  ]  unitl 
I  fnname  unitl 
I  altname  &  unitl 
I  unit2  //  altname 
I  unit2 

unit2  ::=  signalname 

I  enumerated 
I  unit2  [  index  ] 

I  unit2  [  index/u,4  ..  index„p4  j 
I  unit2  [[  unit  ]] 

I  REPLACE  (unit,  unit,  unit ) 
I  ■  type 
I  closedclause 


Closedclause 

CASE  unit  OF  cases  ELSE  unit  ESAC 
1  (  unitl,  •••,  unili.  ) 

I  BEGIN  step,  •  •  •  stept.,  OUTPUT  unit  END 

I  0 

constseti  :  unit,,  •  •  •,  constsett  :  unitt 


typedec 
I  fndec 

I  LET  signalname  =  unit  . 

I  MAKE  fnname  :  signalname  . 
I  JOIN  unit  — •  signalname  . 


Function  Body 

functionbody  :;=  unit 

I  REFORM 
I  BIOP  biopname 

1  DELAY  (  initialvalue,  ambigtime,  ambigvalue,  delay  time  ) 
I  IDELAY  (  initialvalue,  delaytime  ) 

1  SAMPLE  (  interval,  initialvalue,  skewtime  ) 

1  RAM  (  initialvalue  ) 


closedclause 


cases 


step 
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Type  Declaration 


typedec 

::=  TYPE  typename  =  typeornew. 

typeornew 

::=  type 

1  new 

new 

:;=  NEW  tagname  /  (  Iwb  ..  upb  ) 

1  NEW  (  typealt,  I  •••  1  typealt*  ) 

1  NEW  tagname  (  'chari  I---  I'char*  ) 

typealt 

;;=  altname  t  type 

1  altname 

Function  Declaration 


fndec 

— 

FN  fimame  =  input  —  type  :  functionbody. 

input 

(  terminal;,  •  •  •,  terminal*  ) 

I  0 

terminal 

type  :  signalname 

1  type 

Closure 

declaration 

typedec 

1  fndec 

closure 

declaration;  •  •  •  declaration* 
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C  Kernel  of  ELLA  Data  Structure 

C.l  Conventions 


abc 

€ 

Abc  (ie.  it  is  an  element  of  the  set  Abc) 

Indexer,  Size,  Fimo 

C 

Ni 

Typeno,  Tagno,  Inputno 

C 

Ni 

Signalno,  Delaytime 

c 

N, 

Interval,  Ambigtime 

c 

N 

Skew 

c 

Z 

Inputtype,  Outputtype 

c 

Type 

Initialvalue,  Ambigvalue 

c 

Const 

Fnname,  Biopname 

c 

Upper  case  identifier  or  operator 

Name,  Signalname 

c 

Lower  case  identifier 

Typename,  Tagname 

c 

Lower  case  identifier 

Lowerbound,  Upperbound 

c 

positive  or  negative  integer 

Character 

c 

printable  character 

C.2  Data  Structures 

Enumerated 

Enumerated  ::= 

Enum 

1  string(  Typeno  x  TagnoSeq  ) 

Enum  ::= 

enum(  Typeno  x  Tagno  ) 

Types 

Type  ::= 

typeno(  Typeno  ) 

I  typenanie(  Typename  x  Type  ) 
I  stringtype(  Size  x  Type  ) 

I  types(  TypeSeq  ) 

I  typevoid 

Constants 

Const  ::=  Enumerated 

I  conststring(  Size  x  Const  ) 

I  consts(  ConstSeq  ) 

I  constassoc(  Enum  x  Const  ) 

I  constquery(  Type  ) 

I  constvoid 
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Constant  Sets  , 

Constset  ::=  Enumerated 

I  constsetalts(  ConstsetSeq  ) 

I  constsetstring(  Size  x  Constset  ) 

I  constsets(  ConstsetSeq  ) 

I  constsetassoc(  Enuin  x  Constset  ) 

I  constsetany(  Type  ) 

Units 

Unit  :;=  Enumerated 

I  conc(  Unit  x  Unit  x  Outputtype  ) 

I  unitstrmg(  Size  x  Unit  ) 

I  units(  UnitSeq  ) 

I  instance(  Fnno  x  Unit  ) 

I  unitassoc(  Enuin  x  Unit  ) 

I  extract  (  Unit  x  Enuin  ) 

{  signal(  Signalno  ) 

1  index(  Unit  x  Indexer  x  Outputtype  ) 

I  tritn(  Unit  x  Indexer  x  Indexer  x  Outputtype  ) 

I  dyindex(  Unit  x  Unit  x  Outputtype  ) 

I  replace(  Unit  x  Unit  x  Unit  ) 

I  unitquery(  Type  ) 

I  caseclause(  Unit  x  CaseSeq  x  Unit  ) 

I  unitvoid 

Case  case(  Constset  x  Unit  ) 

Function  Declarations 

Endec  fndec(  Fnname  x  Inputtype  x  SignaldecSeq  X  Outputtype  x  Fnbody  ) 

Signaldec  ::=  signaldec(  Signalnaine  x  Type  x  Unitorinput  ) 

Unitorinput  ::=  Unit 

I  input 


Fnbody  ::=  Unit 

I  reform 
I  biop(  Biopname  ) 

I  delay(  Initialvalue  x  Ainbigtime  x  Ambigvalue  x  Delaytime  ) 
I  idelay(  Initialvalue  x  Delaytime  ) 

I  sample(  Interval  x  Initialvalue  x  Skew  ) 

I  ram(  Initialvalue  ) 
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Type  Declarations 

Typedec  ::=  typedec(  Typename  x  New  ) 

New  ::=  tags(  TagSeq  ) 

I  ellaint(  Tagname  x  Lowerbound  x  Upperboiind  ) 
I  chars  (  Tagname  x  CharacterSeq  ) 

Tag  ::=  tag(  Tagname  x  TypeOpt  ) 

Closures 


Closure 


TypedecSeq  x  FndecSeq 


Intentionally  Blank 


«- 
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*  D  Signatures 

In  this  appendix  we  give  a  complete  list  of  the  signatures  of  the  transformational  functions  used 

in  this  document. 

SetEnv 

(Env)8 

Stackenv 

()B 

Unstackenv 

()B 

Hdstack 

()Env 

Scope-Fn-Begin 

0 

Scope-Fn-End 

0 

Scope-Begin 

0 

Scope- End 

0 

Scope-End-Add-Fn 

()B 

Local-Scope-Rule 

Name  — ►  B 

Check-Joins 

0  — .  B 

Check-Two- Val 

kType  — ►  B 

Check- Fn 

Fnname  — >  B 

Check-  Typename 

Name  — ►  B 

Check- Signal 

Signalname  — «  B 

Add-Fn 

Fndec  — *  B 

Add-Type 

Typedec  — •  B 

Add-Signal 

Signaldec  x  Sort  — ►  B 

Add-Join 

Signaldec  x  Signalno  — >  B 

Add- Tag 

Tagname  — >  B 

Add-Type-Name 

Typename  x  kType  — ►  B 

Find-Lower-Nm 

Name  — >  Typetag  u  Sig 

Find-Type-or-Alt 

Name  — *  kType  u  kEnum 

Find-Sig-or-Alt 

Name  — >  (kUnit  x  kType)  u  kEnum 

Find-Fn 

Fnname  — ►  Fnno 

Find-Unjoined 

Signalname  — •  Fnno 

Find-Type 

Typename  — ►  kType 

Find- Alt 

Altname  — >  kEnum 

Find-ELLAint 

Tagname  — >  Typeno  x  Lowerbound  x  Upperbound 

Find-Integer-Type 

kType  — ►  Typeno  x  Lowerbound  x  Upperbound 

Find-Char 

Tagname  x  Char  — ►  kEnum 

Find-Signal 

Signal  — ►  kUnit  x  kType 

Find- Assoc 

Altname  — >  kType 

Find-Row 

kType  — >  x  kType 

Find-Biop 

Biopname  x  kType  x  kType  — *  kFnbody 

Get- Type 

kType  — »  kType 

Type- Equals 

kType  x  kType  — ►  B 

Biop-  Type-  Equals 

kType  x  kType  — ►  B 

Get-Index 

kType  x  Ni  — ►  kType 

Trim 

kType  x  Nj  x  Ni  — ►  kType 

Cone 

kType  x  kType  — ►  kType 

Flatten 

kType  — ►  kTypeSeq 

Is- Char 

Ni  —  B 

I 
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TypeTuple  kXypeSeq  — ►  kType 

ConstTuple  kConstSeq  — ►  kConst 

ConstsetTuple  kConstsetSeq  — »  kConstset 

UnitTuple  kUnitSeq  — >  kUnit 

Disjoint  kConstset  x  kConstset  — »  B 

Not-Lr*r&l-Typc  kType  — ►  B 


C  Enum  x  kEnumeraied  X  kType 
C  Type  X  kType 
C  Const  X  kConsi  x  kType 
C  Constset  x  kConstset  X  kType 
C  Unit  X  kUnit  x  kType 
C  Closedclause  x  kUnit  x  kType 
C  Case  X  kConstset  x  kType  x  kUnit  x  kType 
C  Step  X  B 
C  New  X  kNew 
C  Typealt  x  Tag 
C  Typedec  x  B 
C  Fndec  x  B 

C  Builtin  x  kType  x  kType  x  kBuiltin 
C  Inputfnspec  x  kType 
C  Terminal  X  kType 


C  Declaration  x  B 
C  Closure  x  B 
C  Closure  x  kClosure 


-  ={l]=  - 


C  kType  x  kType  — *  B 
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E  Environments 


This  appendix  describes  the  transformational  environment  and  the  environment  which  holds 
the  necessary  information  about  all  the  Built  in  Operators. 


E.l  Transformation  Environment 


The  environment  (Env)  is  defined  to  be  a  record  object  with  9  fields  which  will  accumulate  type, 
function  and  signal  declarations  and  maintain  information  about  the  scopes  of  identifiers. 


Env  ::  typedec 

fndec 
sigdec 
fnmap 
Iclfnmap 
tynamemap 
Icltynamemap 
signamemap 
Iclsignamemap 
usedtyname 
usedfnname 
usedsigname 


kTypedec* 

kFndec* 

kSignaldec' 

Fnname  Fnno 

Fnname  Fnno 

Name  Typetag 

Name  Typetag 

Signalname  Sig 

Signalname  Sig 

Name-set 
Fnname-set 
Signalname' set 


inv{Env)  ^ 

{dom{ Env. Icltynamemap)  n  dom  (Env. Iclsignamemap )  O  6om( Env. signamemap)) 
A  dom  (Env. Iclfnmap) 


with  the  following  being  local  to  the  translation  process 


Typetag  =  typeno(  Typeno) 

(new  TYPE  ) 

U  typename(  Typenamc  x  kType) 

(  TYPE  alias  ) 

U  consttag(  Typeno) 

{  TYPE  tagntune  tdternative  ) 

Sig  =  sig(Signalno  x  Sort) 

(Signal  name) 

Sort  =  joined  |  unjoined 

(  status  of  signal  input  field  ) 

The  invariant  of  the  environment  is  defined  to  be  tnr(£'nt>)  which  states  that  all  signal  and  type 
ntimes  must  be  unique  and  all  function  names  must  be  unique. 

Note  that  the  first  three  fields  of  Env  are  sequences.  The  use  of  each  field  can  be  summarised 
as  follows 


I  *n- 
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Accumulates  all  fypedecs  for  the  final  closure. 

Accumulates  all  fndecs  for  the  final  closure. 

Accumulates  signaldecs  for  each  fndec, 

Fn  name  map  •  visible  outside  the  most  local  scope, 

Fn  name  map  -  in  most  local  BEGIN. .END  scope, 

Type  information  map  -  visible  outside  the  most  local  scope. 

Type  infounation  map  -  in  most  local  BEGIN. .END  scope. 

Signal  name  map  •  visible  outside  the  most  local  scope. 

Signal  name  map  •  in  the  most  local  BEGIN..END  scope. 

Type  name  used  and  not  available  for  redeclaration. 

Function  n<une  used  and  not  available  for  redeclaration. 

Signal  name  used  and  not  available  for  redeclaration. 

Note  fnname's  are  generated  by  FN  declarations,  tyname's  are  generated  by  TYPE  decl2U’ations 
(both  the  TYPE  name  and  their  tags),  and  signame's  are  generated  by  MAKE,  LET  and  input 
parameter  declarations.  The  used  fields  hold  the  names  of  those  identifiers  which  are  exterior 
to  the  local  scope  and  which  have  been  used  but  not  redefined  within  the  local  scope. 

E.2  Built-In  Operator  Environment 

The  environment  for  the  Built-In  Operators  ( BiopEnv)  is  a  sequence  of  objects  which  hold  the 
BIOP  name  and  its  typing  information 

BiopEnv  ::  biop  :  kBiop' 

Biop  ::  biopname  :  Fnname 
inputiype  •.  kTypc 
outputtype  :  kType 

Due  to  the  Macro  nattuc  of  BIOPs  the  full  type  information  cannot  be  held,  thus  only  the  basic 
information  as  to  whether  a  BIOP  expects  an  enumerated  or  a  string  type  input  is  held  in  this 
environment.  The  full  type  checking  of  a  BIOP  specification  occurs  at  the  dynamic  semantic 
stage,  see  [Hil92]. 

The  library  of  BIOPs  supported  by  the  transformation  are  listed  below,  where  type  represents  a 
basic  enumerated  type,  ttype  a  two  valued  enumerated  type  and  siring  represents  a  string  type, 
flag  is  a  two  valued  enumerated  type  used  for  indicating  the  success  or  failure  of  an  operation. 
For  further  information  on  the  BIOPs  the  reader  is  refered  to  the  ELLA  Language  Reference 
Manual  [Com90]. 


AND 

{ttype,  ttype) 

—  ttype 

AND 

{string,  siring) 

— ♦  string 

OR 

{ttype,  ttype) 

->  ttype 

OR 

{string,  string) 

— •  string 

XOR 

{ttype,  ttype) 

-*  ttype 

XOR 

{string,  string) 

— *  string 

NOT 

ttype 

-*  ttype 

NOT 

string 

-*  string 

EQ 

{type,  type) 

—  ttype 

GT 

{type,  type) 

—  ttype 

GE 

{type,  type) 

-*  ttype 

LT 

{type,  type) 

—  ttype 

Env.typedec 
Env.  fndec 
Env.sigdec 
Env.fnmap 
Env.lclfnmap 
Env.tynamemap 
Env  Acitynarnemap 
Env.signamemap 
Env .  IcUignatnemap 
Env.usedtyname 
Env.  usedfnname 
Env.usedsigname 
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LE 

EQ.US 

GT-US 

GE-US 

LT.US 

LE.US 

EQ^ 

GT-S 

GE^ 

LT^ 

LE^ 

SL 

SR^ 

SR.US 

PLUS -US 

MINUS-US 

NEGATE-US 

TIMES.US 

DIVIDE.US 

SQRT-US 

MOD-US 

RANGE-US 

PLUS-S 

MINUS-S 

NEGATE-S 

TIMES.S 

DIVIDE-S 

MOD.S 

RANGE-S 

ABS.S 

TRANSFORM-US 
TRANSFORM-US 
TRANSFORM-S 
TRANSFORM -S 


(type,  type)  —  ttype 

(string,  string)  — •  ttypc 

(string.  String)  —  ttype 

(string,  string)  — •  ttype 

(string,  string)  — •  ttype 

(string,  string)  —  ttype 

(string,  string)  -*  ttype 

(string,  string)  — *  ttype 

(string,  string)  — *  ttype 

(string,  string)  -*  ttype 

(string,  string)  — •  ttype 

string  — *  string 

string  — ►  string 

string  — »  string 

(string,  string)  — •  string 

(string,  string)  —  string 

string  —  string 

(string,  string)  —  string 

(string,  string)  —  string,  string) 

string  —  string 

(string,  string)  (flag,  string) 

string  (flog,  string) 

(string,  string)  —  string 

(string,  string)  —  string 

string  —  string 

(string,  siring)  —  string 

(string,  string)  —>  (flag,  string,  string) 

(string,  string)  (flag,  string) 

string  —  {/7«y,  string) 

string  —  string 

type  ->  (yTny,  string) 

string  (flag,  type) 

type  (flag,  string) 

string  —(flag,  type) 


.♦ 


Intentionally  Blank 
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F  TVansformational  Rules  Test  System 

«  l  TEST  SUITE  FOR  THE  CORE  TO  KERHEL  TRIMSFORMATIOK  RULES  • 


TTPE  •nua  *  lEV  (•!  I  *3  1*3  I  *4  I  i  *6  I  •?  I  *8  1*9  ). 
TTPE  tnaa*  «  •!»». 

TTPE  tro«  B  (•nun,  •nun,  anun,  anun) . 

TTPE  int  »  lEH  i/(-iOO. .300) . 

TTPE  char  ■  lEV  c(*a  I *b  I *c  I'd  I 'a  i'l  I I >h  I 'A  I 'B  ). 
TTPE  aaaoc  ^  lEV  (val  ft  int  I  choiea  ft  anum  I  nowt). 

TTPE  atring  *  STRIHG  [8]  char. 

TTPE  addrass  s  EEH  ad/(1..356}. 

TTPE  anabla  >  lEH  (yaa  I  no). 

TTPE  ranga  «  lEV  r/(1..4). 

TTPE  bits  *  (int,  char,  string,  tnana). 

TTPE  void  a  (). 


*tagf« 

fttyponana* 

ftypaa* 

aallaint* 

ftchara# 

#taga« 

#atringtypa« 


•typavoidS 


«  Thasa  function  bodias  should  chacR  aach  individual  expression  # 
aUNITS# 

FH  FB0DT_1  =  (tnaina:one,  trov:tuo)  ->  (trov,  tnamo):  REFORM.  sraforms 

FI  FB0DT_3  =  (anun;ona,  int:  two)  ->  (tnamo):  BIOP  AND.  #biop# 

FI  FB0DT.3  =  (tnama:ona)  ->  (anum):  DELAY(o3,  3,  a4.  5).  #dalay# 

FI  F80DT_4  *  (bits;ona)  ->  bits;  IDELAY( (i/3,c’g.c'*abcdofgh" ,a9) ,  6).  Sidalay# 

FH  FB0DT.6  =  (anum:ona)  ->  (anum):  SAMPLE(3,o6.3) .  #sampla# 

FH  FBODY.O  -  (trow: one,  addrass:  too.  address:  throe,  enable:  four)  ->  ftram# 

(trow);  RAM([4]e7). 

FI  FB0DY_7  =  (anum:one)  ->  en\im:  el.  SanunS 

FH  FB0DT_8  *  (int:ono)  ->  int:  i/3.  SenumS 

FI  FB0DT_9  a  (char: one)  ->  char;  c'd.  #anumi 

FI  FBODT.IO  a  (bits;ona)  ->  bits:  (i/3,  c'g,  c’'Bbcdefgh'' ,  e9).  funits# 

FI  FBODT.ll  a  (string:ona)  ->  string:  c"abcdgfhe".  astring# 

FI  FB0ST_13  a  (trov:eno  ,onum:two)  ->  [Slanun:  one  COIC  too.  tconc* 

FI  FB0DT_13  a  (trov:ona  ,onua:t«o)  ->  [S]anum:  two  COIC  one.  aconcft 

FI  FB0DT_14  a  (trov:ona  ,tro«:tvo)  ->  C8}anum;  ona  COIC  too.  ftconcft 


FI  FBODT.IS  a  (string: one)  ->string:  STRIHG  [8]  c'a.  ftunitstring* 

FI  FBODT.IS  a  (anua.'ona,  anum:tvo)  ->  [3}anum;  (ona.  two).  tunitsft 


FI  FB0DT_17  a  (•nua:ono)  ->  anum:  FBODY.S  ona. 


•instances 


I  '•iMi 
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FI  FB00T_18  *  (ijit:on«)  ->  «ssoc:  val  k  one. 

FI  FBODT.IO  ~  (as(oc:one)  ->  anum:  one  //  choice. 

FI  FB0DT_20  s  (aeeocrone)  ->  estoc:  one. 

FI  FB0DT_21  =  (tro*:one)  ->  enun:  oneC2]. 

FI  rB0DT_22  =  (troe.'one)  ->  [2]anuni.'  one[3..4]. 

FI  FB0DT_23  =  (trov:one,  range:tHo)  ->  eniun;  one[[t»o]]. 


•unitatsoci 


•aztreett 


•eignalt 


•index* 


•trint 


•dyindez* 


FI  FB0DT_24  =  (tzos:ona,  r«nga;two,  enunrthree)  ->  tro«:REPLACE(one.tvo, three). 

•replace* 


FI  FB0DT_2B  =  (char: one)  ->  char:  ?char. 


•unitqnerys 


FI  FB0DT_26  =  (intione)  ->  char:  CASE  one  OF  i/2:c'a.  1/  -2:c'b  ELSE  c’d  ESAC. 

•caaaclause* 


FI  FB0DT.27  =  ()  ->  ():  BEGIN  OUTPUT  ()  END. 


•COBSTABTSa 


•unitvoid* 


FB  FB00T_28  =  (enuin:ona)  ->  enure:  IDELAY(  el,  3). 

FB  FB0DT.29  *  (int:one)  ->  int :  IDELAY(  i/7.  3). 

FI  FB0DT_30  =  (char:one)  ->  char:  IDELAY(  c'd.  3). 

FI  FB0DT.31  =  (string:one)  ->  string:  IDELAYC  c"abcfghdo*' ,  3). 


•enure* 


•enure* 


•enure* 


•string* 


FB  FB0DT_32  =  (string;one)  ->  string:  IDELAYC  STRING  [8]  c’c,  3).  #conststring* 
FI  FB0DT_33  =  ((enure,  int):one)  ->  (enure,  int):  IDELAYC  (el,i/l),  3).  Sconsts* 
FI  FB00T_34  =  (assoc:one)  ->  assoc:  IDELAYC  val  A  i/7,  3).  Iconstassoc* 
FB  FB00T_35  =  (enure.-one)  ->  enure;  IDELAYC  Tenure,  3).  Sconstquery* 
FI  FB0DY.36  =  ()  ->  ():  IDELAYC  ().  3).  •constvoid* 


•COISTAIT  SETS* 

FI  F8007_37  s  (enun:one)  ->  enure:  CASE  one  OF  el:  e2  ELSE  e3  ESAC.  •emus* 

FI  FB00T_38  >  (int:one)  ->  int;  CASE  one  OF  i/4;  i/2  ELSE  i/1  ESAC.  •enure* 

FI  FB0DT_30  s  (char: one)  ->  char:  CASE  one  OF  c'a:  c'A  ELSE  c'B  ESAC.  aanure* 

FI  FB0DT_40  s  (string: one)  ->  string:  CASE  one  OF  Istring* 

c "aaaaaaaa” :  c "hgf  edcba" 

ELSE  c"abcdalgh" 
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FI  FB0DT_41  *  (tnunaton*)  ->  char;  CASE  one  OF 

•Ila2la3  :  c'A 
ELSE  c'B 
ESAC. 


•conataatalts* 


FI  FB0DT_42  «  (atringiona)  ->  ttring:  CASE  on*  OF  fcoBBtaatatringl 

STRING  [8]  c'a:  STRING  [8]  c'A 
ELSE  STRING  [8]  c'B 
ESAC. 

FI  FB0DY_43  =  ((anua,  int):on6)  ->  (anum,  int):  CASE  one  OF  Iconstcata# 

(a3,i/3):  (a2.  i/9) 

ELSE  (a3,  i/2) 

ESAC. 

FI  FB0DT_44  *  (assoc :ona)  ->  assoc:  CASE  one  OF  Sconstsatassoc# 

val  A  1/3;  choica  A  al 
ELSE  val  A  l/18 


FI  FB0CT_4B  -  ((anum,  char);ona)  ->  assoc:  CASE  one  OF  SconstsatanyS 

(al,  char):  choice  A  ona[l] 

ELSE  nowt 


tt  Functions  vhich  place  and  call  signal  values  and  local  in's,  type's  S 


tFunction  using  enumerated  typesS 

FN  lUNBER.l  =  (anum:  one,  tname ;  two,  trov;  three,  assoc 
->  assoc: 

BEGIN 

LET  sig.l  =  FB0DY.3  one. 

LET  sig_2  =  lour  //  val. 

LET  sig_3  =  el. 

LET  sig_4  =  one. 

LET  sig.S  =  three [2]. 

LET  sig.fl  =  three[3..4]. 

LET  sig_7  =  three [ [f ive] ] . 

LET  sig.bits  =  (i/3,e'g,c"abcdeigh",7enum) . 

LET  clause  =  BEGIN  LET  clause.l  =  FB0DY.4  sig.bits. 

MAKE  FBODY.S:  ibody.S. 

JOIN  t«o  ->  fbody.S. 

OUTPUT  fbody.S 

END. 

LET  sig_8  =  Ttname. 

LET  sig_9  =  [B](FB0DY_1  (tao,  three)). 

LET  sig.lO  »  STRING  [3]  c'A. 

LET  sig.li  s  [4] one. 

LET  Big_12  s  REPLACE(thrae ,  live,  one). 

LET  Big_13  e  sig_3. 

FI  IUMBER_2  =  (anum:  one,  tname:  tvo,  trov;  three)  -> 
HAKE  FBODT.l:  Ibody.l. 

JOIN  (one,  sig.li  [1]  CONC  sig.li [2. .4J )  ->  Ibody.l. 
OUTPUT  val  A  sig.2 


lour,  range:  live) 


SinstanceS 

SestractS 

sanums 

s signals 

SindexS 

StrimS 

SdyindexS 

SunitsS 

Sbagin.  .ends 


SunitqueryS 

Sunits(rov)S 

Sunitstrings 

sunits(ro«)s 

SraplaceS 

SsignalS 


anum : one . 


Sconce 

Sun'tassocS 


tFunetion  using  •!!«  int«g«rsS 


FI  I0NBER_2  =  (int:  on«,  int :  tvo,  (int .int .int ,int) :  three,  renge : 
->  int : 

BEGII 

LET  eig.l  =  FBODT.S  one. 

LET  eig.a  =  ?/8. 

LET  sig_3  =  one. 

LET  •ig_4  =  three [2]. 

LET  eig.E  =  three [3. .4] . 

LET  eig.e  =  three [ [four] ] . 

LET  eig.T  *  Tint. 

LET  eig.e  =  [6](FB0DT_8  (two)). 

LET  «ig_8  =  [4] one. 

LET  eig.lO  «  REPLACE ( three ,  lour,  one). 

LET  eig.ll  =  •ig_3. 

LET  cleute  =  BECIS  FN  FBODY.B  =  (int:3)->int: j . 

MAKE  FBQDY.S:  lbody.6. 

JOIN  two  ->  fbody.S. 

OUTPUT  fbody.S 

END. 

FI  IUMBER.2  =  (int;  one,  int:  two,  [4] int:  three)  ->  int: one. 
MAKE  FB0DT_8:  lbody,8. 

MAKE  BUMBER.2:  number. 2. 

JOIN  (one,  »ig,U,  sig.9[l]  CONC  sig.9[2..4])  ->  number. 2. 

JOII  number.2  ->  lbody.8. 

OUTPUT  lbody.8 
EIO. 

S  function  u»ing  characters  # 

FI  IOMBER.3  =  (char:one,  char:  two,  [4] char : three ,  range:  four)  -> 
BEGII 

TYPE  eenum  =  NEW  (cel  I ce2 I ce3 1 co4) . 

TYPE  crow  =  [4] char . 

TYPE  cname  =  char . 

FI  FBODY.l  =  (cname:one,  crow:  two)  ->  (crow,  cname):  REFORM. 

FI  IIIER.l  =  (char:one,  cname:  two,  crow.three,  range:  lour)  -> 
BEGII 

LET  iig.l  =  FBODY.l  (one,  three). 

LET  *ig.2  =  c’a. 

LET  aig.B  =  one. 

LET  aig_4  =  three [2]. 

LET  aig.B  =  three[3..4]. 

LET  aig_8  *  three [ [four] ] . 

LET  sig.biti  =  (i/  -2 ,c 'f ,STRING  [8]  c*o,e7). 

LET  elaute  =  BEGII  FN  FBODY.B  =  (char : j)->char: j . 

MAKE  FBODY.B:  fbody.B. 

JOIN  two  ->  fbody.B. 

OUTPUT  fbody.B 

END. 

LET  fig.Y  =  rename. 

LET  aig.B  =  [6] (FBODY.l  (two,  three)). 

LET  aig.B  =  REPLACE( three ,  four,  one). 

FI  IBIER.2  *  (char: one,  cname:  two,  crow: three,  range:  four) 


four) 


#inatanee# 

*enuo* 

taignal# 

lindezt 

atrim# 

adyindez# 

tunitquerya 

aunits(row)a 

aunits(ro«)a 

areplacea 

aaignaia 

abegin. .enda 


aindec# 

amake# 

Sjoina 


char ; 

atypedeca 


char: 

ainatancea 

aenuma 

aaignaia 

aindeza 

atrima 

adyindexa 

aunitaa 

abegin. .enda 


aunitquerya 
aunita(row)a 
areplacea 
->  char: one. 
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MIKE  FBODT.l:  fbody.l. 

JOII  (on*.  «ig.8[l][l][l]  CONC  8ig_8[l][i]t2..4]) 

onrm  •ig.sti] 

EID. 

MAKE  ZISER.l  :  iimer.l. 

JOZI  (on*,  tvo.  thr**.  four)  ->  iimor.l. 

LET  output  s  inn*r_l . 

OUTPUT  output 
EIO. 


->  fbody.l.  •cone# 


•max*# 

•join# 

•lot# 


•  Functions  using  strings  • 

FI  BUMBBR.4  =  (ttring:on*,  string:  two,  C4]string:thr** ,  rang*:  four)->string: 

BE6ZI 

TYPE  sonun  s  NEW  (sol  1 s*2 1 s*3l s*4) . 

•typodoc# 

TYPE  srow  *  [4] string. 

TYPE  snaa*  =  string. 

FI  FBODT.l  =  (*nain*:on*,  stow;  two)  ->  (srow,  snam*):  REFORM. 

FI  ZIIER.l  =  (string:on*,  snam*:  two,  srowithr**,  rang*:  four)  - 

>  string: 

BEGZI 

LET  sig.l  =  FBODT.l  (on*,  thr**). 

•instanco# 

LET  sig_2  =  c''Abcd*f  gh“ . 

•string# 

LET  tig.3  =  on*. 

•signal# 

LET  sig.4  =  thro* [2]. 

•indox# 

LET  sig.6  =  thr** (3.. 4]. 

•trim# 

LET  sig.6  =  thr** [ [four] ] . 

•dyindox# 

LET  sig.T  =  ?snam*. 

•unitquory# 

LET  sig.6  =  [5] (FBODT.l  (two,  thr**)). 

•units(row)# 

LET  sig.O  s  REPLACE(thr** ,  four,  on*). 

•raplac*# 

LET  clauso  =  BEGIN  FI  FB0DT.5  =  (string: j)->string:j . 

•b*gin. .*nd# 

MAKE  FBODY.S:  fbody.5. 

JOIN  two  ->  fbody.S. 

OUTPUT  fbody.S 

EID. 

FI  ZIIER.2  =  (string:on*,  snam*:  two,  srou:thre*,  remg* :  four) 

->  string: 

on* . 

•fndoc# 

MAKE  FBODT.l:  fbody.l. 

JOZI  (on*,  sig.8[l] [1] [1]  CONC  sig.B [l] [i] [2 . .4] )  ->  fbody.l. 

•cone# 

OUTPUT  *ig.5[l] 

EID. 

MAKE  ZIIER.l  :  innor.l. 

•max*# 

JOZI  (on*,  too,  thr**,  four)  ->  innor.l. 

•join# 

LET  output  E  innor.l. 

•lAt# 

OUTPUT  output 

END. 


•  Function  using  associatod  typos  « 

FH  NUMBER.B  =  (assoc:on*.  assoc:  two.  C4]assoc :thr**.  rang*:  f our)->a**oc : 
BE6ZI 

TYPE  aonuB  ^  NEW  (aol I a*2 I a*3} .  stypodoc# 

TYPE  aro*  >  [4] assoc. 

TYPE  anan*  =  assoc. 

FI  FBODY.l  =  (anan*:on*.  arow:  two)  ->  (arow.  anamo):  REFORM. 

FH  ZIIER.l  =  (assoc :on*.  anano:  two,  arov:thr*o,  rang*:  four)  ->  assoc: 
BEGZH 

LET  sig.l  -  FBODT.l  (on*,  thr**). 


•instanco# 
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LET 

sig.2  >  val  It  i/  -6. 

•unitassoe# 

LET 

sig.S  *  one. 

tsignal# 

LET 

•ig.4  >  three[2]. 

•index# 

LET 

sig.S  B  threeC3..4]. 

•trim# 

LET 

sig.S  s  three[[f our]] . 

•dyindez# 

LET 

sig_7  =  Tassoc. 

•unitquery# 

LET 

•ig.8  ®  [S] (FBODT.l  (two,  three)). 

•units(row)# 

LET 

sig.S  ®  one  //  val. 

•extract# 

LET 

sig_10  ®  val  ft  sig.O. 

•unitassoe# 

LET 

sig.ll  ®  REPLACE(three,  four,  one). 

•replace# 

LET 

clause  ®  BEGIB  FB  FBODT.S  ®  (assoc: j)->assoc:j . 

•begin. .end# 

MAKE  FB0DY.5:  fbody.S. 

JOIH  two  ->  tbody.E. 

OOTPOT  fbody.S 

EVD. 

FB  IBNEK_2  =  (wstocione,  an&ma :  two,  arov:ti-.rt-c  range:  four)  ->  aaaoc: 

one.  tffndecB 


MAKE  FBODT.l:  fbody.l. 

JOIH  (one.  sig.8[l]  [1] [1]  COUC  sig.8[l] [l] t2. .4) )  ->  fbody.l. 

ODTPOT  aig.SLl] 

EBO. 

MAKE  ZBHE&.l  :  inner. 1.  «make» 

JOZV  (one,  two,  three,  four)  ->  inner.l.  #join# 

LET  output  =  inner.l.  #let# 

OOTPOT  output 
EBO. 


#  Function  uaing  composite  types  « 


two.  [4]bits :throe,  range:  four)->bits: 

Atypedec* 


two)  ->  (brow,  bname):  REFORM. 

two,  brow: three,  range:  four)  ->  bits: 


FB  BUMBER.e  s  (bits: one,  bits 
BEGIB 

TTPE  benuffl  =  NEW  (bel Ibe2lbe3) 

TTPE  brow  =  [4] bits. 

TTPE  bname  ==  bits . 

FB  FBOOT.l  =  (bname: one,  brow: 

FB  XBBER.l  =  (bits:one,  bname: 

BEGIB 

LET  sig.l  =  FBODT.l  (one,  three). 

LET  sig_2  =  one. 

LET  sig_3  =  three [2]. 

LET  sig_4  =  threeC3..4]. 

LET  sig.S  =  three [[f our] ] . 

LET  sig.fl  -  ?bnama. 

LET  oig_7  =  [6] (FBODT.l  (two,  three)). 

LET  sig.S  =  REPLACE(three ,  four,  one). 

LET  clause  =  BEGIB  FB  FBODT.B  =  (bits:3)->bits: j 
MAKE  FBODT.S:  fbody.S. 

JOIH  (i/3,c’g,c"abcdefgh".7onum)  ->  fbody.S. 
ODTPOT  fbody.S 

EBD. 

FB  IBBER.T  ^  (bits:one,  bname:  two,  brow-.three,  range:  four) 
one . 

MAKE  FBODT.l:  fbody.l. 

JOIB  (one,  sig.7[l]  [l]  [l]  COHC  sig_7 [l]  tl]  (2 .  .4]  )  ->  fbody.l 
OOTPOT  sig.4[l] 

EBO. 

HAKE  XBBER.l  :  inner.l. 


•instance# 

•signal# 

•index# 

•trim# 

#dyindex# 

•unitquery# 

•units(row)# 

•replace# 

•begin. .end# 


>  bits: 
•fndec# 


•make# 
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JOZI  (on«,  two,  thrwo,  four)  ->  ixmor.l.  #join« 

LET  output  *  iaaer.l.  tlot« 

OOTPUT  output 
EIO. 


t  Compound  cat#  choosors  t 

FI  lUNBEK.T  -  (onus:  ono,  string:  two.  assoc:  thrao,  trow:  f our)->(trow,onuin} : 
CASE  (ono, two, throw, four)  OF 

(olloEloS,  STRIIG[8]c*A.  val  A  i/O,  [4]o4)  :  FBODT.l  (ono. four). 

•shows  correct  fn  scope# 

(enun.  Cabedef gh" ,  choice  A  e3,  (e4,e3,e2.el))  :  (four.  one). 

(e4,  c"hgfedeba",  nowt,  [4]e3)  :  ((e4,e3,e3,el) ,  e7) 

ELSE  (?trow,  ?enua) 

ESAC. 


I  This  case  statement  should  cover  all  possible  chooser  states  • 

FN  lUMBER.S  =  (enum:one,  char:two)  ->  assoc: 

CASE  (ono,  two)  OP 


(el,  c'Alc'B) 

:  choice  A  el , 

(el,  c’alc’blc'clc'dic'e) 

:  choice  A  el , 

(el,  c'flc'glc’h) 

:  nowt , 

(e2|e3le4,  c 'e 1 c *f 1 c ’g 1 c ’h) 

;  choice  A  e3. 

(e2le3le4.  c’alc'bic'clc'd) 

:  choice  A  e3. 

(e2,  c*A) 

:  nowt , 

(e3le4,  c'Alc'B) 

:  choice  A  e7. 

(e2,  c’B) 

:  val  A  i/0, 

(e5le8le7,  e'e 1 c *f 1 c 'g 1 c 'hi e 

-B) 

:  val  A  1/  -3. 

(e6le6le7,  c'alc'bic'clc’die 

-A) 

:  val  A  1/  -3. 

(eSloB,  c'A) 

:  val  A  j/3. 

(eSIoB,  c'alc'bic'clc'd) 

:  val  A  i/s, 

(eSIeS,  c’elc’f Ic’glc'h) 

:  choice  A  e2 

ELSE  ?assoc 
ESAC. 


FINISH 


Intentionally  Blank 
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G  Three  Pump  Controller 

G.l  Introduction 

This  appendix  presents  a  high  level,  medium  level,  Core  and  Kernel  description  of  a  three  pump 
controller.  The  definition  of  the  controller  is  given  by: 

A  reservoir  is  connected  to  a  lake  by  a  pipe  line.  Water  is  taken  from  the  lake  to  the  reservoir 
by  a  system  of  three  pumps. 

Three  level  sensors  are  installed  on  the  reservoir.  Their  outputs  are  denoted  by  signals  oi,  oj, 
03.  Signal  Oi  is  0  when  the  water  is  above  level  i,  for  i  =  1,2,3  and  has  a  value  1  when  the 
water  is  below  level  i.  The  number  of  pumps  that  are  on  at  any  one  time  depends  on  the  water 
level  in  the  reservoir.  Jn  particular:  if  the  water  level  is  between  level  1  and  2,  then  one  pump 
should  be  in  operation;  if  the  water  level  is  between  level  2  and  3,  then  two  pumps  should  be  in 
operation;  if  the  water  level  is  below  level  3,  then  three  pumps  should  be  in  operation.  Of  course, 
if  the  water  level  is  above  level  I  then  no  pumps  should  be  in  operation.  In  order  to  equalise 
wear  on  the  pumps,  they  should  come  into  opcralion  in  a  cyclic  manner. 


G.2  High  Level  Description 

In  this  section  we  give  a  high  level  description  of  the  pump  controller. 

TYPE  pump  =  HEW  (none  I  a  I  b  |  ab  1  c  I  ca  I  be  I  abc  ), 
level  =  HEW  1/(0,. 3). 
bool  =  HEW  (til). 

FH  COHTROL  =  (level: in)  ■>  pump: 

(  SEQ 

PVIR  store  ::=  (none.t); 
store  CASE  in  OF 

1/0  :  (store  [1] ,t) , 

1/1  :  CASE  store  Cl]  OF 

a  I  ca  :  (b,f), 

b  I  ab  :  (c,f) 

ELSE  (a.f) 

ESAC, 

1/2  :  CASE  store  [1]  OF 

a  I  ab  :  (bc.f), 

b  I  be  :  (ca.f) 

ELSE  (ab,f) 

ESAC, 

1/3  :  (abc,l) 

ESAC; 

OUTPUT  CASE  store [2]  OF 
t:  none, 

1:  store [1] 

ESAC 

). 
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Three  enumerated  types  have  been  defined.  The  first  ‘pump’  denotes  which  pumps  are  actuaUy 
operating,  the  pumps  being  known  as  ‘a\  ‘b’  and  ‘c’.  At  first  glance  the  ordering  of  the 
enumerated  type  might  appear  strange.  However  the  ordering  was  chosen  such  that  when  the 
circuit  is  transformed  to  gate  level  the  output  of  the  controller  will  be  a  three  bit  signtd,  with 
each  bit  representing  one  of  the  pumps.  The  second  type  ‘level’  denotes  the  level  of  water  in 
the  reservoir,  with  zero  representing  a  full  reservoir.  The  third  type  is  a  boolean  flag  which  is 
used  in  the  monitoring  of  the  active  pump.  The  function  CONTROL  is  the  pump  controller 
and  its  CASE  clause  sets  up  which  pumps  get  switched  on. 

Although  CONTROL  has  been  written  using  sequences  this  is  not  reedly  necessary.  A  functional 
version  of  CONTROL  is  therefore  given,  this  being  an  equivalent  description  to  the  sequential 
form. 

"5  Fl. DELAY  =  ((  pump,  bool  ))  ->  (  pump,  bool  ):  DELAY((  none,  t  ),  1  ). 

i'j  IHTROL  =  (  level:  in  )  ->  pump: 

BEGIS 

HAKE  Fl. DELAY:  sSstore. 

LET  store  s 
CASE  in  OF 

1/0:  (  s3store[  1  ] ,  t  ) , 

1/1: 

CASE  s3store[  1  ]  OF 
a  I  ca:  (  b,  f  ) , 
b  I  ab:  (  c,  f  ) 

ELSE  (  a,  f  ) 

ESAC, 

1/2: 

CASE  s3store[  1  ]  OF 
a  1  ab:  (be,  f  ) , 
b  I  be:  (  ea,  f  ) 

ELSE  (  ab,  1  ) 

ESAC, 

1/3:  (  abe,  f  ) 

ESAC. 

JOIN  store  ->  s3store. 

OUTPUT 

CASE  store [  2  ]  OF 
t :  none , 

1:  store [  1  ] 

ESAC 

EID. 


G.3  Medium  Level  Description 

This  section  presents  the  results  of  replacing  the  enumerated  types  for  the  pump  switch’s  and 
level  indicators  by  rows  of  two  valued  types.  This  synthesising  of  the  types  makes  explicit  the 
algorithm  behind  the  type  naming  of  the  high  level  version.  It  would  have  been  possible  to 
describe  the  controller  from  the  medium  level  from  the  outset,  however  the  higher  level  version 
provides  extra  checks.  In  particular  in  the  high  level  version  the  level  indicators  can  only  take 
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four  possible  values  whereas  in  this  medium  level  version  they  can  take  eight.  This  medium  level 
version  treats  such  iUegal  values  as  ‘unknown’  and  causes  the  simulator  to  return  the  ELLA 
unknown  value,  whereas  the  high  level  version  would  explicitly  indicate  if  the  level  integer  range 
was  violated. 

This  medium  level  version  has  maintained  close  correspondence  with  the  high  level  version  by 
the  use  of  ‘constant’  statements.  Thus  the  majority  of  the  controller  description  has  remained 
imaltered,  hence  reducing  the  likelihood  of  error.  The  complete  description  is  given  by 

TYPE  »Bitch  s  lEW  (on  I  off), 
pump  -  [3]s«itch, 
level  s  [3]s«itch, 
bool  =  lEW  (t  I  f). 

COEST  none  ®  (off,  off,  off). 


a 

= 

(on.  off,  off). 

b 

= 

(off,  on,  off). 

c 

= 

(off,  off,  on). 

ab 

= 

(on,  on,  off). 

ca 

= 

(on,  off,  on). 

be 

s 

(off,  on,  on). 

abc 

= 

(on,  on,  on). 

COHST  levelO  =  (off,  off,  off), 
levell  =  (on,  off,  off), 
level!  =  (on,  on,  off), 
levels  s  (on,  on,  on). 


FH  COBTROL  =  (level:in)  ->  pump: 

(  SEQ 

PVAR  store  ::=  (none.t); 

store  CASE  in  OF 

levelO  :  (store [1] ,t) , 
levell  :  CASE  store  [l]  OF 
a  I  ca  :  (b,f), 
b  I  ab  :  (c,f) 
ELSE  (a.f) 

ESAC, 

level!  :  CASE  store  [l]  OF 

a  I  ab  :  (bc,f), 
b  I  be  :  (ca,f) 
ELSE  (ab.f) 

ESAC, 

levels  :  (abc.f) 

ESAC; 

OUTPUT  CASE  store  [!]  OF 
t :  none , 
f;  store [l] 

ESAC 
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G.4  Core  Description 

This  section  presents  the  results  of  synthesising  the  medium  level  description  of  the  pump 
controller  through  the  ELLA-GATEMAP  [Pil88)  system.  Apart  from  the  fimctions  Fl J)ELAY 
and  CONTROL  all  the  other  functions  are  basic  cells  in  one  of  the  technology  librsuries  that 
GATEMAP  supports. 

« - g 

i  ELLl  natlist  genaratad  by  GATEHAP  II  varsion  1.2  « 

•  t 

«  Module  :  CONTROL  i 

•  Data  :  16-MAY-1991  13:41  # 

•  Library  :  USRSWORK : []  « 

•  Technology  :  USRSGATEHAPROOT ;  [12 .TECHHOLOGIES] •••*•••  S 

•  « 

« - - - - ^ 


» . TYPES . # 

TYPE  bool  *  NEW(  f  I  t  I  x  I  z  ) . 

TYPE  tach.bool  =  bool. 

CONST  logic. 0  *  f. 


• . LIBRARY  CELLS  . . — f 

FN  INVl  =  (  bool:  a  )  ->  bool:  #  Inverter  «. 

FN  NAND2  =  (  bool:  a  b  )  ->  bool:  tt  Two  Input  NAND  0 

FN  NAND3  =  (  bool:  a  b  c  )  ->  bool:  0  Three  Input  NAND  0 

FN  H0R2  -  (  bool:  a  b  )  ->  bool:  0  Two  Input  NOR  0 

FN  N0R3  =  (  bool:  a  b  c  )  ->  bool:  0  Three  Input  NOR  0 

FN  X2AN0R  >  (  bool:  a  b  c  d  )  ->  bool:  N0R(AND(a,b) ,  AN0(c,d)). 

FN  EXNOR  B  (  bool:  a  b  )  ->  bool:  0  Two  Input  Exclusive  OR  0 

FN  CLKB  *  (  bool:  ai  )  ->  (  bool,  bool  }:  0  Clock  Drviar  0 


FN  DF  ■  (  bool:  ckt  cki  d  )  ->  (  bool,  bool  ):  0  Clocked  Call  0 
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•  - - ELU  DELAY  FUHCTION . . . « 

FI  Fl.DELAY  «  (  tvch.bool:  unnaned.input.l ,  tech.bool:  unnamed .input. 2, 

tech.bool:  unnamed. input. 3,  tech.bool:  unnamed. input. 4  )  -> 

(  tech.bool,  tech.bool.  tech.bool,  tech.bool  }: 

BEGII 

NIKE  DF  :  xcmplY  zcmpl9  xcmplS  xcmp21, 

CLXB:  xcmplB. 

JOII  (  xcmplBC  1  ],  xcmpl8[  2  ],  unnamed. input. 3  )  ->  xcmpl7, 

(  xcmpl8[  1  ],  xcmpl8[  2  ],  unnamed. input. 2  )  ->  xcmpl9, 

(  logic. 0  )  ->  xcmplS, 

(  xcmplSC  1  ],  xcmpl8[  2  ].  unnamed. input. 1  )  ->  xcmplS, 

(  xempl8[  1  ],  xcmpl8[  2  ],  unnamed. input. 4  )  ->  xcmp21. 

OUTPUT  (  xcmpl5[  1  ],  xcmpl9[  1  ],  xcmpl7[  1  ],  xcmp2lC  1  ]  ) 

EID. 

•  - - PUMP  COHTROLLER  . . - . — . « 

FI  COITROL  «  (  tech.bool:  in.l,  tech.bool:  in. 2,  tech.bool:  in. 3  )  -> 

(  tech.bool,  tech.bool,  tech.bool  ): 

BEGII 

MAKE  IRVl  :  xcmp39  xcmp69  xcinp76  xcmp24  xcmp74  xcmp33  xcmp61  xcmp37, 

IAI02  :  xcmp56  xcmp66  xcmp25  xcmp36  xcrop38  xcmp53  xcmp70 

xcmp47  xcmp64, 

KAID3  :  xcmp45  xcmp67  xcmpe4  xcmp3S, 

K0R3  :  xcmp75  xcmp40  xempSO, 

X2AI0R  :  xcmp7e  xcmp72  xcmp82, 

EXIQR  :  xcmp48, 

Fl.DELAY:  xcmp4. 

JOII  (  xcmp72,  xcmp67  )  *>  xcmp56, 

(  xcmp37,  in. 2,  xcmp47  )  ->  xcmp45, 

(  xcmp56  )  ~>  xcmp39, 

(  xcmp76,  xcmp4[  1  ],  xcmp74  )  ->  xcmp75, 

(  xcmp37,  in. 2,  xcmp66  )  ->  xcmp35, 

(  in.l,  xcmp4[  2  ],  xcmp37,  xcmp80  )  ->  xcmp78, 

(  xcmp61,  xcmp4[  2  ]  )  ->  xcmp66, 

(  in.l,  xcmp4C  1  ],  xcmp37,  xcmp7S  }  ->  xcmp72, 

(  xcmp53  }  ->  xcmp69, 

(  in.2,  xcmp4C  1  J,  xcmp4[  3  ]  )  ->  xcmp40, 

(  in.3  )  ->  xcmp76, 

(  xcmp24,  xcmp37  )  ->  xcmp25, 

(  in.l,  xcmp4[  3  ],  in.3,  xcmp46  )  ->  xcmp62, 

(  xcmp78,  xcmp35  )  ~>  xcmp36, 

(  xcmp37,  in.2,  xcmp64  )  ->  xcmp67, 

(  xcmp39,  xcmp37  )  ->  xcmp38, 

(  xcmp37,  xcmp4C  1  ],  xcmp4[  2  ]  )  ->  xcmpB4, 

(  xcmp36  )  ->  xcmp24, 

(  xcmp4[  3  ]  )  ->  xcmp74, 

(  xcmp4[  2  ]  )  ->  xcmp33, 

(  xcmp4[  1  ]  )  ->  xcmp61. 
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(  xcap62,  xcmp45  )  ~>  xcmp53, 

(  ia.l  )  ->  xcmp37, 

(  xeap69,  xcnp37  )  ->  xcmp70, 

(  xcfflp33.  xcap4[  3  ]  }  ->  xcmp47, 

(  xcap66,  xcap47  )  ->  xcrop64, 

(  xcap76,  xcBp6l,  xcmp4[  2  ]  )  ->  xcapSO, 

(  xcap40.  xcap84  )  ->  xcap48. 

(  xcapSe,  xcap36,  xcapS3.  xcBp37  )  ->  xcap4. 

OUTPUT  (  xcap38,  xcmp25,  xcBp70  ) 

ElO. 

G.5  Kernel  Description 

After  pusing  the  above  Corc-ELLA  description  through  the  Lisp  implementation  of  the  trans¬ 
formation  rules  the  resulting  Kernel  description,  expressed  in  recursive-let  format  is 

TTPEDEC  bool  =  SEW  (f  I  t  I  x  I  2) 

FSDECS> 

FHDEC  BOOL.DELAT  =  (bool)  ->  (bool): 

BEGIN  0 

OtriPOT  DELAY(x,  1.  x.  1). 

ESO. 

FNDEC  INV.FN  =  (bool)  ->  (bool): 

BEGIN  (LET  in  =  input.) 
output  case  in  OF 

(  (t  :  f)  (f  :  t)  ((x  l2)  ;  x)) 

ELSE  ?bool 
ESAC 

END. 

FHDEC  EXNOR.FN  =  ((bool,  bool))  ->  (bool); 

BEGIN  (LET  a  ~  input.  LET  b  =  input.) 

OUTPUT  CASE  (a.b)  OF 

(  (((1,1)  Kt.t))  :  t)) 

ELSE  CASE  (a,b)  OF 

(  (((t  ll),(t  If))  :  f)) 

ELSE  CASE  (a,b)  OF 

(  (((x  l2  It  !f).(x  |2  It  If))  :  x)) 

ELSE  ’bool 
ESAC 

ESAC 

ESAC 

END. 

FNDEC  INVl  :  (bool)  ->  (bool): 

BEGIN  (LET  a  =  input.) 

OUTPUT  INV.FN  a 
END. 

PIDEC  NAND.HAC  -  ((bool,  bool))  ->  (bool). 

BEGIN  (LET  in  »  input.) 

OUTPUT  CASE  in  OF 

(  ((t,t)  :  f)) 

ELSE  CASE  in  OF 

(  (((t  lf),(t  If))  :  t)) 

ELSE  CASE  in  OF 

(  (((x  Iz  lt),(x  Iz  It))  :  x)) 

ELSE  CASE  in  OF 
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(  {((*  Iz  It  ll).(x  Iz  It  ID)  :  t)) 

ELSE  ’bool 
ESAC 

ESAC 

ESAC 

ESAC 

SIS. 

FIOEC  IAI03  s  ((bool,  bool))  ->  (bool): 

BECZI  (LET  a  «  input.  LET  b  =  input.) 

OOTPOT  lAID.MAC  (a.b) 

EID. 

FIDEC  IAID_MAC_E7  »  ((bool,  bool,  bool))  ->  (bool): 

BEGZI  (LET  in  ^  input.) 

OUTPUT  CASE  in  OF 

(  ((t,t,t)  :  f)) 

ELSE  CASE  in  OF 

(  (((t  lf),(t  lT).{t  li))  :  t)) 

ELSE  CASE  in  OF 

(  (((z  Iz  lt),(x  Iz  lt),(x  Iz  lt)>  :  x)) 

ELSE  CASE  in  OF 

(  (((x  Iz  It  ID.(x  Iz  It  li).(x  iz  It  IT))  :  t)) 
ELSE  ’bool 
ESAC 

ESAC 

ESAC 

ESAC 

EHD. 

FHDEC  HAROS  =  ((bool,  bool,  bool))  ->  (bool): 

BEGZH  (LET  a  =  input.  LET  b  =  input.  LET  c  =  input.) 

OUTPUT  HAHD.MAC.H7  (a.b.o) 

ERO. 

FRDEC  ROR.MAC  =  ((bool,  bool))  ->  (bool): 

BEGZR  (LET  in  *  input.) 

OUTPUT  CASE  in  OF 

(  ((f.T)  :  t)) 

ELSE  CASE  in  OF 

(  (((t  lf),(t  IT))  :  T)) 

ELSE  CASE  in  OF 

(  (((x  Iz  IT).(x  Iz  ID)  :  x)) 

ELSE  CASE  in  OF 

(  (((x  Iz  It  IT).(x  Iz  It  IT))  :  T)) 

ELSE  ’bool 
ESAC 

ESAC 

ESAC 

ESAC 

ERO. 

FRDEC  H0R2  =  ((bool,  bool))  ->  (bool): 

BEGZR  (LET  a  =  input .  LET  b  =  input  ) 

OUTPUT  ROR.MAC  (a,b) 

ERO. 

FRDEC  ROR.MAC.RS  *  ((bool,  bool,  bool))  ->  (bool): 

BEGZR  (LET  in  -  input.) 

OUTPUT  CASE  in  OF 

(  ((T.T,T)  ;  t)) 

ELSE  CASE  in  OF 

(  (((t  lT),(t  IT),(t  IT))  :  D) 
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ELSE  CASE  in  OF 

(  (((x  |2  lf).(x  l2  lf).(x  Iz  IJ))  :  x)) 

ELSE  CASE  in  OF 

(  (((x  Iz  It  lf).(x  Iz  It  lf).(x  Iz  It  If)) 
ELSE  ?bool 
ESAC 

ESAC 

ESAC 

ESAC 

EHD. 

riDEC  >0R3  =  ((bool,  bool,  bool))  ->  (bool): 

BECIS  (LET  a  s  input.  LET  b  =  input.  LET  c  =  input.) 

OUTPUT  H0R_MAC.»3  (a.b.c) 

EBO. 

FRDEC  AHD.MAC  =  ((bool,  bool))  ->  (bool); 

BEGIV  (LET  in  =  input.) 

OUTPUT  CASE  in  OF 

(  ((t.t)  :  t)) 

ELSE  CASE  in  OF 

(  (((t  lf).(t  If))  ;  f)) 

ELSE  CASE  in  OF 

(  (((x  l2  !t).(x  Iz  It))  ;  x)) 

ELSE  CASE  in  OF 

{  (((x  Iz  It  lf).(x  Iz  It  If))  ;  f)) 

ELSE  7bool 
ESAC 

ESAC 

ESAC 

ESAC 

END. 

FHOEC  X2AN0R  =  ((bool,  bool,  bool,  bool))  ->  (bool); 

BEGIN  (LET  a  =  input. 

LET  b  s  input . 

LET  c  =  input . 

LET  d  =  input . 

LET  anda  =  AND. MAC  (a,b). 

LET  andb  =  A.JD.HAC  (c,d). 

LET  nor  =  N0R2  ( anda , andb ). ) 

OUTPUT  nor 
END. 

FHDEC  EXNOR  =  ((bool,  bool))  ->  (bool): 

BEGIN  (LET  a  =  input.  LET  b  =  input.) 

OUTPUT  EXNOR.FN  (a,b) 

END. 

FIDEC  CLKB  =  (bool)  ->  ((bool,  bool)): 

BEGIN  (LET  ai  =  input.) 

OUTPUT  (ai.INV.FN  ai) 

END. 

FNOEC  DF  =  ((bool,  bool,  bool))  ->  ((bool,  bool)); 

BEGIN  (LET  ckt  =  input. 

LET  cki  =  input . 

LET  d  =  input . 

LET  naxt.q  =  BOOL.DELAY  d. 

LET  naxt.qbar  =  INV.FN  next.q.) 

OUTPUT  (naxt. q, naxt.qbar ) 

END. 

FIDEC  Fl.DELAT  *  ((tach.bool,  tach.bool,  tach.bool,  tach.bool))  -> 


:  f)) 
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((t«eh_bool,  tech.bool,  tech.bool,  tach.bool)): 
BECZH  (LET  uimuiad. input _1  =  input. 

LET  unnaB«d_input_2  =  input. 

LET  unnaRi«d_input_3  =  input. 

LET  tinnaned.  input  _4  =  input . 

LET  xcrnpl?  =  DF  (xcmpieEl] ,xc!npl8C2] .unnamed. input_3). 

LET  xcrnpl#  =  DF  (xc»pl8[l] .xcmpl8[2] .unnamed_input_2) . 

LET  xcmpl8  =  CLKB  1. 

LET  xcaplE  =  OF  (xcapl8[l] ,xcinpl8[2] .unnaned.input.l) . 

LET  xcap21  «  DF  (xcnpie [l] .xcmpl8[2] .unnam«d_xnput_4) . ) 

OUTPUT  (xcmplSCl] .xcnplSCl] ,xcmpl7[l] ,xcmp21 [l] ) 

EHD. 

FBDEC  COITROL  =  ((tech.bool,  tech.bool,  tech.bool))  -> 

((tech.bool,  tech.bool,  tech.bool)): 

BEGZB  (LET  in.l  =  input. 

LET  in.2  =  input . 

LET  in.3  =  input . 

LET  xcmpSC  =  IIAND2  (xcinp72,xcmp67) . 

LET  xcnp45  =  NiND3  (xcmp37,in.2,xcmp47) . 

LET  xcatp3S  =  INVl  xcmpS6. 

LET  xcnp7S  =  K0R3  (xcmp76,xcmp4[l] ,xcmp74) . 

LET  xcmp3S  =  NAND3  (xcmp37  ,in_2  .xcir.pee)  . 

LET  xcmp78  =  X2iH0R  (in.l  ,xcnip4  [2]  .xcmp37  ,xcmp80) . 

LET  xempSO  =  NAN02  (xcmpfil ,xcmp4  [2] ) . 

LET  xemp72  =  Z2AN0R  (in.l ,xcmp4 [l] ,xcmp37 ,xcmp7B) . 

LET  xcmp69  =  INVl  xcmp53. 

LET  xcmp40  =  N0R3  ( in_2  ,xcmp4  [l]  . xcn'.p4  [3]  )  . 

LET  xcmp76  =  INVl  in_3. 

LET  xcmp2S  =  NAND2  (xcip.p24  ,  xcmp37 )  . 

LET  xcmp82  =  X2AN0R  (in.l  ,xcmp4  [3]  .  in.3  ,  xeir.p48)  . 

LET  xcmp36  =  NAN02  (xemp78,xcr.p36)  . 

LET  xcmp67  =  NAN03  (xcmp37  ,in.2  ,xcr.p64) . 

LET  xcmp38  =  NAN02  (xcr.p39  ,xcmp37)  . 

LET  xcinp84  =  NAND3  (xcn;p37  ,xcrnp4  [l]  .  xcn;p4  [2]  )  . 

LET  xcmp24  =  INVl  xcmp36. 

LET  xcmp74  =  INVl  xcmp4[3]. 

LET  xcmp33  =  INVl  xcmp4[2]. 

LET  xcntpCl  =  INVl  xcnip4[l]. 

LET  xcmp53  =  NAND2  (xcnip82 ,xcmp45) . 

LET  xcmp37  =  INVl  in.l. 

LET  xcmp70  =  NAND2  (xempes  .xcn;p37) . 

LET  xcinp47  =  NAND2  (xcmp33  .xcmp4  [3]  )  . 

LET  xcinp64  =  NAND2  (xcmp66  ,xcinp47)  . 

LET  xcnp80  =  N0R3  (xcnip76  ,xcmp61  ,xcinp4  [2]  )  . 

LET  xcmp48  =  EXNOR  (xcmp40 ,xcmp84) . 

LET  xcmp4  =  Fl.DELAV  (xcmp56 ,xcinp36 ,xcmpB3 ,xcmp37) . ) 

OUTPUT  (xcmp38,xcmp25,xcmp70) 

EHD. 

SZGDECS> 

FBMAPS> 


LCLF1NAPS> 

Bap( "CONTROL"  :  19) 
Bap( "FI. DELAY"  :  18) 
aapCDF"  :  17) 
mapCCUB"  :  16) 
napCEXHOR"  :  IB) 
aap("Z2AH0R"  :  14) 
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t 


mapC'AID.MAC"  :  13) 
Bap(’'IOR3"  :  12) 
B»p("I0R_MAC_*3"  :  11) 
BBp("10R2'‘  :  10) 
B*p("lIOR_MAC"  :  8) 
B«p(''SAND3"  :  8) 
BapC'KAKD.MAC.lI?"  :  7) 
Bap("IAHD2”  :  6) 
aapC'IASO.NAC"  :  6) 
BapC'XIVl"  :  4) 
BapC'EXIOR.FH"  :  3) 
BapC'lKV.FR’*  :  2) 
BapC'BOOL.DEUT"  :  1) 
T7BAMEMAPS> 

LCLrrHAHEHAPS> 
Bap("tach_bool"  :  tach.bool) 
BapC'bool"  :  bool) 
aapC'z"  :  "bool") 
aapC’x"  :  "bool") 
mapC't"  ;  "bool") 
niap("l"  :  "bool") 
S1G8AKENAPS> 

LCLSIGNAM£HAPS> 

OSEDTTKAMES> 

nSEOFNNANES> 

USEOSICNA>l£S> 
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